Çözüldü Makro ile ara

[sirkülasyon]

Hayırlı Sabahlar
Harici linkte sunduğum dosyada
Sayfa1 de Turuncu renkli hücrelerin herhangi birine veri girişi yapıldığı zaman
Sayfa1 de ki isme göre Sayfa2 de ki ismi kontrol edecek ve sayfa2 de ki "P" sütunundaki tutarı Sayfa1 de ki sarı renkli "Q" sütununa aktaracak bir makroya ihtiyacımız var. Makro kodunu "altın üyelik süremiz dolduğu için" cevaba yazarak yardımcı olabilir misiniz?
Saygılarımla






İlgili Dosya

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 5 And süt >= 4 And süt <= 8 And Cells(sat, süt) <> "" Then
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
aranan = s1.Cells(sat, "b")
sonsat = s2.Range("c65536").End(xlUp).Row
sırası = WorksheetFunction.Match(aranan, s2.Range("c1:c" & sonsat), 0)
s1.Cells(sat, "q") = s2.Cells(sırası, "p")
End If
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Sayfa1 kod sayfasına;

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim c As Range
   
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("D5:H45")) Is Nothing Then Exit Sub
   
    With Sheets("Sayfa2")
        Cells(Target.Row, "Q").ClearContents
        Set c = .Range("C:C").Find(Cells(Target.Row, "B"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(Target.Row, "Q") = .Cells(c.Row, "P")
        End If
    End With
   
End Sub

 

[sirkülasyon]

Ömer Abi Sağ olasın. Teşekkür ederim. Eline Sağlık.

 

[sirkülasyon]

Muygun abi
Teşekkür ederim.