veri getirme

[Ahmet TUNALI]

Aşağıdaki makro ile dosya içerisindeki sayfalardan verileri alıp yatay olarak Sayfa 1 e aktarıyorum.
1.sorum dosya içerisindeki bazı sayfalardan veri almasın istiyorum.
Örneğin Ahmet isimli sayfadan veri almasın.... gibi
2.Sorum verileri satır olarak nasıl aktarabilirim.
örneğin a sayfasındaki verileri Sayfa1 a1:g1
b sayfasındaki verileri Sayfa1 a2:g2
şeklinde.

Sub getir()
Application.ScreenUpdating = False
On Error Resume Next
Set S1 = ThisWorkbook.Worksheets("Sayfa1")
S1.Range("b1:ıv8").ClearContents
S1.Range("b1:ıv8").Borders.LineStyle = xlNone
süt = 2
For Sayfa = 1 To Sheets.Count
If Sheets(Sayfa).Name <> S1.Name Then
Set s2 = ThisWorkbook.Worksheets(Sheets(Sayfa).Name)
S1.Cells(1, süt) = s2.Cells(4, "f")
S1.Cells(2, süt) = s2.Cells(8, "g")
S1.Cells(3, süt) = s2.Cells(9, "g")
S1.Cells(4, süt) = s2.Cells(14, "g")
S1.Cells(5, süt) = s2.Cells(15, "g")
S1.Cells(6, süt) = s2.Cells(18, "g")
S1.Cells(7, süt) = s2.Cells(19, "g")
S1.Cells(8, süt) = s2.Cells(24, "g")
S1.Cells(2, süt).Borders.LineStyle = xlContinuous
S1.Cells(3, süt).Borders.LineStyle = xlContinuous
S1.Cells(4, süt).Borders.LineStyle = xlContinuous
S1.Cells(5, süt).Borders.LineStyle = xlContinuous
S1.Cells(6, süt).Borders.LineStyle = xlContinuous
S1.Cells(7, süt).Borders.LineStyle = xlContinuous
S1.Cells(8, süt).Borders.LineStyle = xlContinuous
S1.Cells(9, süt).Borders.LineStyle = xlContinuous

süt = süt + 1
End If
Next Sayfa
End Sub

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[hamitcan]

 If Sheets(Sayfa).Name = "Ahmet" Then  goto 10


10
next

şeklinde kullanabilirsiniz.

 

[Ahmet TUNALI]

Sayın Muygun,
veri alınmasını isemediğimiz 6-7 sayfa varsa bunu nasıl yapabiliriz.
Ahmet, Ali, hasan.... gibi dosyalardanda veri aılnmasın.
uğraşınız için teşekkürler.

 

[muygun]

Merhaba;
kodlardaki;

If Sheets(Sayfa).Name <> s1.Name And Sheets(Sayfa).Name <> "Ahmet" Then

satırını;

If Sheets(Sayfa).Name <> s1.Name And Sheets(Sayfa).Name <> "Ahmet" And Sheets(Sayfa).Name <> "Ali" Then

şeklinde koyu renkli kısımları ekleyerek ve istemediğiniz sayfaları yazarak deneyin.

İyi çalışmalar.

 

[muygun]

Veya bu sayfalar her zaman değişkenlik gösteriyor diyorsanız (yani kodların içine girmeden bu işlemi yapayım diyorsanız)
Ahmet TUNALI-sayfalardan tasnif-1 dosyasını, yada;
Ahmet TUNALI-sayfalardan tasnif-2 dosyasını inceleyin.

 

[Ahmet TUNALI]

Sayın muygun,
Teşekkürler sorunum çözüldü emeğinize sağlık.
Herşey gönlünüzce olsun.
İyi çalışmalar.

 

[Ahmet TUNALI]

Sayın muygun,
son gönderdiğiniz örnek dosyalar işimi daha kolaylaştırdı.
Tekrar teşekkürler.