Otomatik veri çekme makrosu hakkında yardım

[td877]

Arkadaşlar merhaba,

Bir dosyam var içerisinde çeşitli alanların olduğu birden çok sekmem olan. Bir makro arıyorum çalıştırdığım zaman tüm sayfa isimlerini liste halinde alt alta yazacak ve satırlardaki başlıkların altına, ilgili sayfada aynı başlıktaki değer ne ise onu yazacak.

Örnek dosyam ektedir.

https://www.dosya.tc/server21/5hcae6/OTOMATIK_ICMAL.xlsx.html

Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Sub sayfalar_59()
Dim sonsat As Long, sh As Worksheet, i As Long
Sheets("İCMAL").Select
Range("B6:C" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 6 To sonsat
    Set sh = Sheets(Cells(i, "A").Value)
    Cells(i, "B").Value = sh.Cells(3, "C").Value
    Cells(i, "C").Value = sh.Cells(4, "C").Value
Next i
MsgBox "İşlem bitti."
End Sub

 

[td877]

Abi çok teşekkür ederim yetiştin imdadıma, sayfa isimlerini de sıralayabilir mi makro alt alta?

 

[Orion1]

Abi çok teşekkür ederim yetiştin imdadıma, sayfa isimlerini de sıralayabilir mi makro alt alta?

Sayfa isimleri zaten A sütununda yazılı.

 

[td877]

İşte onu diyorum abi, o sayfa isimlerinin 100 tane olduğunu farzedelim 100 sayfa isminide otomatik yazabilirmi makro? Ben şunu yapmasını istiyorum gibisinden örnek olarak el ile ekledim onları

 

[Orion1]

Anladım.olur tabii.

 

[kardelen79]

Abi bu macroyu ögretsene bize )

 

[Orion1]

İşte onu diyorum abi, o sayfa isimlerinin 100 tane olduğunu farzedelim 100 sayfa isminide otomatik yazabilirmi makro? Ben şunu yapmasını istiyorum gibisinden örnek olarak el ile ekledim onları

Buyurun.

Sub sayfalar_59()
Dim sh As Worksheet, i As Long, sat As Integer
Sheets("İCMAL").Select
Range("A6:C" & Rows.Count).ClearContents
sat = 6
For i = 2 To Worksheets.Count
    Set sh = Sheets(i)
    Cells(sat, "A").Value = sh.Name
    Cells(sat, "B").Value = sh.Cells(3, "C").Value
    Cells(sat, "C").Value = sh.Cells(4, "C").Value
    sat = sat + 1
Next i
MsgBox "İşlem bitti."
End Sub

 

[Orion1]

Abi bu macroyu ögretsene bize )

Formu takip edin.

 

[td877]

Üstad ellerine gözlerine sağlık, çok teşekkür ediyorum problem çözüldü.

 

[Orion1]

Üstad ellerine gözlerine sağlık, çok teşekkür ediyorum problem çözüldü.

Rica ederim.
İyi çalışmalar.