tüm sayfalardaki a1 hucresindeki yazıları aktif sayfaa lıstelemek

[kneehot]

herkese selamlar. baslıktada yazdıgım gıbı bır makro ıle tum sayfalardakı a1 hucresındekı veriyi aktif sayfanın b3 hucresından baslayacak sekılde lıstelemeye calısıyorum. yardımlara cok tesekkurler.

 

[Necdet]

Merhaba,

Çok güzel bir soru, anlayan yanıtlar sanırım.

 

[asi_kral]

herkese selamlar. baslıktada yazdıgım gıbı bır makro ıle tum sayfalardakı a1 hucresındekı veriyi aktif sayfanın b3 hucresından baslayacak sekılde lıstelemeye calısıyorum. yardımlara cok tesekkurler.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sayfalardan_veri_1967()
'Konu       :   Tüm Sayfaların A1 Hücresindeki Verileri Al
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim S1 As Worksheet, S2 As Worksheet
Dim SAT As Long, SAY As Long
Set S1 = ActiveSheet
SAT = 3
For SAY = 1 To Sheets.Count
Set S2 = Sheets(SAY)
If S2.Name <> S1.Name Then
S1.Cells(SAT, "B") = S2.Range("A1")
SAT = SAT + 1
End If: Next
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[Merhum İdris SERDAR]

herkese selamlar. baslıktada yazdıgım gıbı bır makro ıle tum sayfalardakı a1 hucresındekı veriyi aktif sayfanın b3 hucresından baslayacak sekılde lıstelemeye calısıyorum. yardımlara cok tesekkurler.

.

Örnek dosya ekte.

.

 

[kneehot]

cok tesekkur ederım ıkı yardım da ıstedıgımı yapıyor.

 

[asi_kral]

cok tesekkur ederım ıkı yardım da ıstedıgımı yapıyor.

Kolay Gelsin.