Tüm Sheetlerden Yeni Bir Sheete Veri Listelemek

[saglık123]

Arkadaşlar;

Benim yaklasık 200 adet sheeti olan bi excell dosyam var.

Ve hepsi aynı standart formlar.

Bu formlardaki mesela "KONU" kısmını tek bir sheete alt alta yazdırmak istiyorum.

Böylece elimdeki tüm sheetlerin konusunu gösteren bi özet sayfam olmuş olacak

yardımcı olursanız sevinirim.

Ayrıca bunun tam tersini yapabilen bi makroda cok iyi olur.

 

[uzmanamele]

merhaba

3-5 sayfalık örnek dosya ile sorunuzu destekleyiniz.

 

[saglık123]

Ornek Bir Dosya

Ornek Bir Dosya Gönderiyorum.

Fakat sheet sayısı bu dosyada cok az tabi orijinal dosyamda 200 adet var .

Yardımcı olursanız çok sevinirim.

Şimdiden Teşekkürler.

 

[saglık123]

Syn uzmanamele;

bukadar hızlı cevap beklemiyordum.

İlgilendiğiniz için teşekkürler.

İlerde bende uzman amele olcam inşallah

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

 

[saglık123]

Cok tesekkürler

Sub konular()
Sheets("İCMAL").Range("b4:f65536").ClearContents
j = 3
For i = 1 To Worksheets.Count
Sheets("İCMAL").Cells(j, "b") = Sheets(i).Cells(9, "a")
j = j + 1
Next
End Sub

J:3 deki rakam neden üç onu anlamadım

 

[saglık123]

Birde PERSONAL... makrolarını nasıl sileceğimi söyleyebilir misiniz

 

[mancubus]

makro silmek:

vbe penceresini açın.
makronun bulunduğu modülü tıklayın. sağda açılan pencereden silmek istediğiniz bölümüm seçerek "del" tuşuna basın.

modülü tamamen silmek için modül ismi üzerinde sağ tıklayıp remove module tıklayın. modülü save etmek için yes, tamamen silmek için no.

 

[mancubus]

sizin örnekte işlemin 3. satırdan başlaması için j=3 denilmiş.

 

[saglık123]

Çok Yardımcı oldunuz

Süppper çalışıo

Çok teşekkür ederim.

 

[uzmanamele]

Birde PERSONAL... makrolarını nasıl sileceğimi söyleyebilir misiniz

merhaba
bunu silmeyin!