farklı sayfalardan veri toplama

[ismailh]

merhabalar; ben sayın uzmanlardan yardım talep ediyorum. çalıştığım firmada her faturayı Excel de ayrı sayfalara işliyorum ve son sayfasına döküm yapıyorum. Acaba bunu makro ile nasıl yaparım. yardımcı olursanız sevinirim. Hayırlı akşamlar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub listele()
Set s1 = Sheets("toplam")
s1.[a2:f65536].ClearContents
For a = 1 To Sheets.Count
If Sheets(a).Name <> "toplam" Then
c = c + 1
s1.Cells(c + 1, "a") = Sheets(a).[d5] 'bölge
s1.Cells(c + 1, "b") = Sheets(a).[d1] 'bayii
s1.Cells(c + 1, "c") = Sheets(a).[d2] 'tarih
s1.Cells(c + 1, "d") = Sheets(a).[e2] 'fatura no
s1.Cells(c + 1, "e") = Sheets(a).[e6] 'kola
s1.Cells(c + 1, "f") = Sheets(a).[e7] 'bira
End If
Next
End Sub

 

[ismailh]

üstat

ÜSTAT " Bu ne şiddet bu celal " süpersiniz. "ALLAH RAZI OLSUN"

HAYIRLI GECELER. "OH BE"