Sütundaki Bilgiye Göre Satır Seçme

[sugosu]

Merhaba

Şöyle bir tablom var :

SATIŞ ÜRÜN FİYAT
50 Anakart 30$
30 Anakart 40$
20 Anakart 30$
20 LCD 100$
40 LCD 120$
50 VGA 130$
60 VGA 120$

Ben bu tablodan makro kullanarak anakart ürün sütunundaki tüm anakartların seçilip anakart sheetine kopyalamasını istiyorum. Makro yaparak olmuyor çünkü elime gelen data her hafta değişiyor. Ben mesela anakartı filtreleyip seçtiğimde farz edelim en tepedeki anakart satırı 13. satıra denk geliyor macroda da 13. satır olarak kaydediyor. Haftaya gelen raporda eğer 11. satırda varsa anakart 13. satırdan alıp tekrar 11. satırı es geçiyor. Bunu nasıl bir komutla halledebilirim bu işlerde biraz yeniyim lütfen yardım edin.

 

[Ömer]

Merhaba,

Küçük bir örnek dosya ekleyerek açıklarmısınız.

 

[sugosu]

Ufak örnek bir tablo yaptım. Alttaki sheetlere anakart lcd diye ayrı ayrı çekilsin istiyorum.

 

[sugosu]

Lütfen yardım

 

[Ömer]

Ufak örnek bir tablo yaptım. Alttaki sheetlere anakart lcd diye ayrı ayrı çekilsin istiyorum.

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

Sub Sayfalara_Aktar()
 
    Dim Sa As Worksheet, i As Long, j As Integer
    Dim son As Long, sayfa As String
    
    Set Sa = Sheets("ALL")
    
    Application.ScreenUpdating = False
    
    For j = 1 To Worksheets.Count
        With Sheets(j)
            If .Name <> "ALL" Then
                .Range("A2:C" & Rows.Count).ClearContents
            End If
        End With
    Next j
    
    For i = 2 To Sa.Cells(Rows.Count, "A").End(xlUp).Row
        sayfa = Sa.Cells(i, "A")
        With Sheets(sayfa)
            son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            Sa.Range("A" & i & ":C" & i).Copy .Cells(son, "A")
        End With
    Next i
    
    Application.ScreenUpdating = True
 
End Sub

.