- Katılım
- 12 Eylül 2006
- Mesajlar
- 6
- Excel Vers. ve Dili
- excel 2003
Merhaba Arkadaşlar,
Yine forumdan bulduğum ve sık olmasa da kullandığım bir dosya var. Dosyanın içindeki makronun fonksiyonu sayfalardaki bilgileri birleştirmek. Ancak kodlama satır, sutün ve sayfa olarak sabit tanımlanmış. Ben biraz değiştirmeye çalıştım ancak istediğim sonuca tam olarak ulaşamadım. Lütfen benim için satır bazında kodların ne işe yaradığının açıklamalarını yazar mısınız? Ben de böylece kodlama mantığını kısmen de olsa anlamaya başlayacağım.
Cevaplarınız için gönülden teşekkür ederim.
Sub listele() -- Modul adı
Set s1 = Sheets("BİRLESTİR") --s1 değişkenine BİRLESTİR sayfası atanıyor.
s1.[a2
65536].ClearContents
For a = 1 To Sheets.Count
If Sheets(a).Name = "BİRLESTİR" Then GoTo 12
son = s1.[b65536].End(3).Row + 1
say = Sheets(a).[b65536].End(3).Row
s1.Range("a" & son & "" & son + say - 12) = Sheets(a).Range("a12" & say).Value
12 Next
s1.[a2:a3].AutoFill Destination:=s1.Range("a2:a" & s1.[b65536].End(3).Row)
End Sub
Yine forumdan bulduğum ve sık olmasa da kullandığım bir dosya var. Dosyanın içindeki makronun fonksiyonu sayfalardaki bilgileri birleştirmek. Ancak kodlama satır, sutün ve sayfa olarak sabit tanımlanmış. Ben biraz değiştirmeye çalıştım ancak istediğim sonuca tam olarak ulaşamadım. Lütfen benim için satır bazında kodların ne işe yaradığının açıklamalarını yazar mısınız? Ben de böylece kodlama mantığını kısmen de olsa anlamaya başlayacağım.
Cevaplarınız için gönülden teşekkür ederim.
Sub listele() -- Modul adı
Set s1 = Sheets("BİRLESTİR") --s1 değişkenine BİRLESTİR sayfası atanıyor.
s1.[a2
65536].ClearContents For a = 1 To Sheets.Count
If Sheets(a).Name = "BİRLESTİR" Then GoTo 12
son = s1.[b65536].End(3).Row + 1
say = Sheets(a).[b65536].End(3).Row
s1.Range("a" & son & "
" & son + say - 12) = Sheets(a).Range("a12" & say).Value12 Next
s1.[a2:a3].AutoFill Destination:=s1.Range("a2:a" & s1.[b65536].End(3).Row)
End Sub