İlk harfe göre worbooktaki tüm sayfalardaki veriyi çağÃ

[miransahin]

Ýlk harfe göre worbooktaki tüm sayfalardaki veriyi çağÃ

selam arkadaşlar benim sorunum şu benim 1 workbook da 14 sayfa var ama bu sayfalardan ilk satırı A harfi ile başlayan bütün satırları kopyalayıp bir başka çalışma kitabana yapıştırsın istiyorum bunu nasıl yapabiliriz. teşekkürler

 

[Levent Menteşoğlu]

Dosyanızın en başına yeni bir sayfa ekleyin, ve bu sayfaya ekleyeceğiniz bir butona aşağıdaki kodu bağlayarak deneyin.

[vb:1:f40f7f1539]Sub listele()
Columns(1).ClearContents
For a = 2 To Sheets.Count
If LCase(Mid(Sheets(a).Cells(1, 1), 1, 1)) = "a" Then
c = c + 1
Cells(c, 1) = Sheets(a).Cells(1, 1)
End If
Next
End Sub
[/vb:1:f40f7f1539]

 

[miransahin]

teşekkür ederim leventm