değer değiştirme

[onur3466]

Merhaba arkadaşlar F4 hücresinde yer alan formüldeki HV 25 °C'!AD2 "AD" değerinin G4 hücresindeki değerle CTRL+H formülüne benzer makro yazarak HV 25 °C'!AE2 olması gibi.yanlız değer yeniden F4 de kalacak.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Replace_Address()
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Range("F4").Replace "!AD", "!" & Range("G4").Value, xlPart
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

 

[onur3466]

merhaba Korhan bey formül çalıştı çok teşekkür ederim peki AD değişken olabilirmi?mesela AE çevirdik sonradan AK'ya çevirebilirmiyiz?

 

[Korhan Ayhan]

Deneyiniz.

Kodu çalıştırdığınızda karşınıza ADRES yazacağınız bir kutucuk gelecek. Sütun harfini yazarak işleme devam edebilirsiniz.

Option Explicit

Sub Replace_Address()
    Dim Adres As Variant
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Adres = Application.InputBox("Değiştirmek istediğiniz sütun harflerini giriniz...")
    If Adres = False Then Exit Sub
    If Adres = "" Then
        MsgBox "İşleme devam edebilmeniz için sütun bilgisi girmelisiniz!", vbCritical
        Exit Sub
    End If
    Range("F4").Replace "!" & Adres, "!" & Range("G4").Value, xlPart
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

 

[onur3466]

tekrar teşekkür ederim Korhan bey ama çalıştıramadım

 

[Korhan Ayhan]

Gelen kutucuğa formül içinde geçen değiştirmek istediğiniz sütun harfi bilgisini girmelisiniz.

 

[onur3466]

gerçekten denedim ama olmuyor Korhan bey




denilen tüm komutları yaptığım halde af olarak gelmemektedir

 

[Korhan Ayhan]

Ama formülün içinde AD yazıyor.

Siz gelen kutuya AD yazınca G4 hücresinde yazan AE adresi ile değişecek.

 

[onur3466]

tamamdır anladım çok teşekkür ederim Korhan bey beni o kadar büyük bir yükten kurtardınızki