Makro da koşullu veri taşıma

[salih31]

sayfa1 de ki müsait yazan hücreleri bulundugu satırdaki verilerle birlikte sayfa2 ye A2 satırından başlayarak eklemek. yardımınız için şimdiden teşekkür ederim..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bul_Listele()
    
    Dim S1 As Worksheet, c As Range, Adr As String, sat As Long
    
    Set S1 = Sheets("Sayfa1")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
    Range("A2:A" & Rows.Count).ClearContents
    
    sat = 2
    With S1.Cells
        Set c = .Find("müsait")
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(sat, "A") = S1.Cells(c.Row, c.Column)
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With

    Application.ScreenUpdating = True
    
End Sub

.

 

[salih31]

teşekkürler

 

[salih31]

yalnız sadece müsait yazan hücre geliyor bulunduğu satır gelmiyor.

 

[Ömer]

Cells(sat, "A") = S1.Cells(c.Row, c.Column)

Kodlarda, yukarıdaki satırın yerine aşağıdaki satırı yazarak deneyin.

S1.Rows(c.Row).Copy Cells(sat, "A")

.