Satır ve sutunda ayrı aramak yapıp karşılaştırmak

[fizikopat]

Arkadaşlar sayfa 1 de satır ve sutunda ayrı arama yaptığımda 2sinin kesiştiği hucreye yazı yazmak ve sayfa 2 de ise bunları yine aynı arama işlemini yaptığımda kesişen hucredeki cevabı bulmak istiyorum yardımcı olabilirmisiniz acaba

 

[Ömer]

Arkadaşlar sayfa 1 de satır ve sutunda ayrı arama yaptığımda 2sinin kesiştiği hucreye yazı yazmak ve sayfa 2 de ise bunları yine aynı arama işlemini yaptığımda kesişen hucredeki cevabı bulmak istiyorum yardımcı olabilirmisiniz acaba

Merhaba,

Module kopyalayıp çalıştırın.

Sub [COLOR=red]Sayfa1[/COLOR]_Icin()
 
    Dim c As Range, sat As Byte, sut As Byte
 
    With Sheets("[COLOR=red]Sayfa1[/COLOR]")
    
        Set c = .[A1:A25].Find(.[B29], , xlValues, xlWhole)
        If Not c Is Nothing Then
            sut = c.Row
        End If
        
        Set c = .[A1:Z1].Find(.[A29], , xlValues, xlWhole)
        If Not c Is Nothing Then
            sat = c.Column
        End If
        
        [COLOR=blue].Cells(sat, sut) = .Range("C29")
[/COLOR]        
    End With
 
End Sub

Kodları Sayfa2 için yazarken kırmızı işaretli bölümlerdeki Sayfa1 yerine Sayfa2 yazarsınız. ( Başlıkları tamamen farklı da yazabilrsiniz. )

Ayrıca mavi işaretli satırın yerine aşağıdaki satırı yazarsınız.

.Range("C29") = .Cells(sat, sut)

.

 

[fizikopat]

çok teşekkur ederim daha önceki sorumuda siz yardımcı olmuştunuz gerçekten çok teşekkurler