A1 e göre B1 veri yazmak? (kod ile)

[hurkanpisirici]

merhabalar mesela a1 e depo yazdığımda b1 e a yazsın.
istanbul yazdığımda b yazsın
izmir yazdığımda c yazsın
tabi kod öle bi olmalıki daha sonradan altına antalya d yi ekleyebileyim.
ilgilenebilecek bir arkadaş varmı acaba?

 

[Ayhan Ercan]

Merhaba Sn hrknp

Ek Dosyayı İnceleyiniz...

Dönelerinizi G ve H sutunlarında belirleyiniz.

Sonra A1 sütununa Girmiş olduğunuz döneleri deneyiniz...

Böyle bişeymi istiyorsunuz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
For Each hcr In Range("G1:G" & Range("g65536").End(3).Row)
    If [a1].Value = hcr.Value Then
        [b1].Value = hcr.Offset(0, 1).Value
    End If
    Next
End Sub

 

[hurkanpisirici]

sorumu iyi anlamışsınız istediğim değişiklikleri böyle bir yöntemle daha kolay yaparım çok teşekkürler ayhan bey tam istediğim gibi

 

[hurkanpisirici]

bişey sormak istiyorum soruma göre bu kodu anındamı yazdınız? yoksa daha önceden oluşturduğunuz bir tablo varmı?

 

[Ayhan Ercan]

sorumu iyi anlamışsınız istediğim değişiklikleri böyle bir yöntemle daha kolay yaparım çok teşekkürler ayhan bey tam istediğim gibi

Rica ederim..
İyi Çalışmalar... k::

 

[Ayhan Ercan]

bişey sormak istiyorum soruma göre bu kodu anındamı yazdınız? yoksa daha önceden oluşturduğunuz bir tablo varmı?

Siz sordunuz bende kafamda tasarlayıp yazmaya çalştım. Daha önceden oluşturduğum bir tablo yok...

 

[hurkanpisirici]

anladım ayhan bey teşekkür edeirm ilginize kolay gelsin.