Makro ile bir sayfadaki veriyi başka sayfada bulup değiştirme nasıl yapılır?

[burakozgen16]

Merhabalar,

Forum sayesinde pek çok şey öğrendim ve bilgi paylaşan herkese teşekkür ederim. Şu an yaşadığım sorun ile ilgili destek verebilirseniz çok memnun olurum.

Devir sayfasında B2 hücresindeki veriyi Detay sayfasının B sütununda bulup bir sol hücresine "Devir" yazdırmak istiyorum fakat bir türlü yapamadım.

Bilgisini paylaşmayı esirgemeyen herkese teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Makro veya formülle çözüm üretilebilir. Formül ile daha kolay olacaktır.
Düşeyara veya etopla sizi sonuça ulaştırır.
Yinede makro derseniz tekrar bakalım...

.

 

[burakozgen16]

Ekte göndermiş olduğum dosya aslında içerisinde çok fazla makro ve formülün olduğu başka bir dosyada yapmak istediğim şey için örnek bir dosya.
Eğer yardımcı olabilirseniz. Sizden öğrendiğim makroyu gerçek dosya içerisinde kullanacağım.
Teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Örneğin "222" detay sayfasında her zaman 1 kezmi geçiyor yoksa birden fazla tekrar edebilir mi?

.

 

[Emir Hüseyin Çoban]

.

Sub kod()

    Dim Sdetay As Worksheet: Set Sdetay = Sheets("Detay")
    Dim Sdevir As Worksheet: Set Sdevir = Sheets("Devir")


    aranan = Sdevir.Range("B2")

    For i = 2 To Sdetay.Cells(Rows.Count, "B").End(3).Row

        If aranan = Sdetay.Cells(i, "B") Then
            Sdetay.Cells(i, "A") = "Devir"
            Exit For    'Birden fazla tekrar ediyorsa bu satırı silin.
        End If

    Next i

End Sub

.

 

[burakozgen16]

Çok teşekkür ederim, çok yardımcı oldunuz.