Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 6 sonutan 1 ile 6 arasndakiler gsteriliyor.

Konu: Byk harfe evirme

  1. #1
    Yeni ye
    yelik tarihi
    Nov 2013
    Mesajlar
    8

    Byk harfe evirme

    ..........
    Konu prof_kaleci tarafndan (01.01.2018 Saat 22:11 ) deitirilmitir.

  2. #2
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Merhaba,
    Sayfanzn VBA alanna aadaki kodu yaptrp denerseniz enter tuuna basmadan otomatik olarak olur sanyorum.
    Salcakla kaln.


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim PlageAlan As Range
    Dim cell As Range

    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Set PlageAlan = Range("D2:H100") ' bu alan siz artralirsiniz
    For Each cell In PlageAlan
    cell = UCase(Replace(Replace(cell.Value, "", "I"), "i", "")) 'Trke problemini zmek iin
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
    End Sub
    Konu behcet tarafndan (01.01.2018 Saat 17:01 ) deitirilmitir.

  3. #3
    Yeni ye
    yelik tarihi
    Nov 2013
    Mesajlar
    8
    ............
    Konu prof_kaleci tarafndan (01.01.2018 Saat 22:13 ) deitirilmitir.

  4. #4
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Merhaba Sayn prof_kaleci,
    Ben denedim bir sknt yok. Gayet gzel alyor.
    Dosya/seenekler/eklentiler/Excel eklentileri ni aktif yapp
    Bir de aadaki ekilde deneyebilir miyiz?
    Salcakla kaln.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim PlageAlan As Range
    Dim cell As Range
    Application.ScreenUpdating = False

    Set PlageAlan = Range("D2:H100") ' bu alan siz artralirsiniz
    For Each cell In PlageAlan
    cell = UCase(Replace(Replace(cell.Value, "", "I"), "i", "")) 'Trke problemini zmek iin
    Next
    Application.ScreenUpdating = True
    End Sub
    Konu behcet tarafndan (01.01.2018 Saat 19:59 ) deitirilmitir.

  5. #5
    Yeni ye
    yelik tarihi
    Nov 2013
    Mesajlar
    8
    ............
    Konu prof_kaleci tarafndan (01.01.2018 Saat 22:14 ) deitirilmitir.

  6. #6
    Yeni ye
    yelik tarihi
    Nov 2013
    Mesajlar
    8
    ............
    Konu prof_kaleci tarafndan (01.01.2018 Saat 22:13 ) deitirilmitir.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •