Kaydır ve Düşeyara

[mumunal]

Merhaba, Sayfa1 A1 hücresindeki veriyi Sayfa2 A sütununda aratıp B ve C sütununda karşılık gelen satırları ve 1 satır altını, 2 satır altını...7 satır altını Sayfa1 B1:B7, C1:C7 ve D1: D7 hücrelerine yazdırmak için Kaydır ve Düşeyara formüllerini beraber çalıştıramadım. Sanırım ekli dosya sorumu daha iyi açıklayacaktır.

 

[NBATMAN]

Merhaba,

Kod ile aşağıdaki gibi çözülür.

Private Sub CommandButton1_Click()
Dim i As Long
Dim satir As Long
    Dim sonsatir As Long
    sonsatir = Worksheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row
On Error Resume Next

Set a = Worksheets("Sayfa2").Cells.Range("A" & 1 & ":D" & sonsatir).Find(Worksheets("Sayfa1").Cells(1, "A"), , xlValues, xlWhole)
    If Not a Is Nothing Then
        For i = 0 To 7
       Worksheets("Sayfa1").Cells(i, "B") = a.Offset(i - 1, 1)
       Worksheets("Sayfa1").Cells(i, "C") = a.Offset(i - 1, 2)
       Worksheets("Sayfa1").Cells(i, "D") = a.Offset(i - 1, 3)
        Next i
    End If
End Sub

 

[Ömer]

Merhaba,

Formül ile;

B1 hücresine yazıp yana ve alt hücrelere kopyalayın.

=KAYDIR(Sayfa2!B1;KAÇINCI($A$1;Sayfa2!$A:$A;0)-1;0)

Not: Her veri 7 satır olduğu için ve siz yükseklikten bahsetmediğiniz için bu kısımla ilgili düzenleme yapmadım.

.

 

[mumunal]

Merhaba,

Formül ile;

B1 hücresine yazıp yana ve alt hücrelere kopyalayın.

=KAYDIR(Sayfa2!B1;KAÇINCI($A$1;Sayfa2!$A:$A;0)-1;0)

Not: Her veri 7 satır olduğu için ve siz yükseklikten bahsetmediğiniz için bu kısımla ilgili düzenleme yapmadım.

.

Teşekkür ederim üstad. Formülü çekince diğer hücrelerde de çalıştı.
Kullanmak isteyenler olur düşüncesiyle dosyayı ekliyorum.