hangi günlerde satılmış

[irfem4]

ekteki dosyanın 1. sayfasındaki verilere göre 2. sayfaya veri çekmek istiyorum. orjinal dosya büyük olduğu için örnek doya yükledim. yardımlarınız için şmdiden teşekkürler

 

[Necdet]

Merhaba,
Kodları bir modüle kopyalayıp deneyiniz.

Sub Listele()

Dim rng As Range
Dim c   As Range
Dim adr As String
Dim arn As String
Dim r   As Long

arn = Sayfa2.Range("b2")

Set rng = Sayfa1.Range("A1").CurrentRegion
r = 3
Sayfa2.Range("B3").CurrentRegion.Offset(2).ClearContents

With rng
    Set c = .Find(arn, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        adr = c.Address
        Do
            r = r + 1
            Sayfa2.Cells(r, 2) = rng(c.Row, 1).Value
            Sayfa2.Cells(r, 3) = c.Offset(0, 1).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> adr
    End If
End With

End Sub

 

[irfem4]

Merhaba,
Kodları bir modüle kopyalayıp deneyiniz.

Sub Listele()

Dim rng As Range
Dim c   As Range
Dim adr As String
Dim arn As String
Dim r   As Long

arn = Sayfa2.Range("b2")

Set rng = Sayfa1.Range("A2").CurrentRegion
r = 3

With rng
    Set c = .Find(arn, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        adr = c.Address
        Do
            r = r + 1
            Sayfa2.Cells(r, 2) = rng(c.Row, 1).Value
            Sayfa2.Cells(r, 3) = c.Offset(0, 1).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> adr
    End If
End With

End Sub

bilginize ve emeğinize sağlık kod çalışıyor. Set rng = Sayfa1.Range("A2").CurrentRegion satırındaki A1 yapınca doğru sonuç veriyor.

 

[Necdet]

Merhaba,
Örneğinizde veri 2. satırdan başladığı için A2 den başlayıp seçsin istedim.
birde sayfa2 deki önceki verilerin silinmesi gereken kodu unutmuşum, onu da ekledim koda.
Tekrar alabilirsiniz kodları.