9 Sayfadan Verİ Çekme

[mehmethoca]

BUTON KULLANMADAN 3. VE10. ARASI SAYFALARDAKİ A4 VE K4 ARALIĞINDAKİ VERİLERİ GENEL LİSTE DİYE BİR SAYFAYA ÇEKMEK İSTİYORUM SYN SEZAR'IN BİR ÇALIŞMASI VAR AMA O SATIRI SÜTUNA YAZIYOR SATIR SATIR YAZDIRMAK İSTİYORUM VE 9 SAYFA BİRAZ SIKINTILI EXCELDE YAPIYORUM AMA NE KADAR KAYIT OLACAĞINI KESTİREMİYORUM VE ÇOK BOŞLUK BIRAKMAK GEREKİYOR MAKRO İLE OLUR GİBİ GELİYOR BANA

AMA NASIL BİLMİYORUM:roll:

 

[Ferhat Pazarçevirdi]

Örnek bir dosya eklemeniz mümkün mü acaba?

 

[mehmethoca]

dosya ekte

dosya ekte amaç hocam sınıflara ait a4 ve k4 başlayarak bu sınrlaraki bütün verileri genel liste sayfasına aktarmak



gerçi aynı soruyu excel yeni başlayanlar kısmındada sordum gereksiz yer işgal ediyorum yöneticiler kusura bakmayın

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu; "GENEL LİSTE sheet'inin kod sayfasına yapıştırın lütfen.

Private Sub Worksheet_Activate()
Set shgenel = Sheets("GENEL LİSTE")
Range("'GENEL LİSTE'!A1:K10").ClearContents
For x = 1 To 10
i = i + 1
If i > 8 Then: Exit Sub
For y = 1 To 12 'genel.sütünlar
shgenel.Cells(x, y) = Sheets(i + 2).Cells(4, y)
Next y
Next x
End Sub

 

[mehmethoca]

SAYIN FPC KOD MÜKEMMEL ÇALIŞIYOR ;
üstat kodun mantığı 1.satırlar tüm sayfalarda yoklandıktan sonra diğerlrine geçiyor kayıt olmayan satırların yerine boşluk geliyor çok bir sorun değil ama boş ise genel liste sayfasına yazmazsa olur mu
emeğinize sağlık
teşekkürler

 

[mehmethoca]

hocam abartıyor diyeceksiniz ama genel liste sayfasında ilk satır boş kalabilir mi

 

[Ferhat Pazarçevirdi]

Aman hocam yardımcı olabiliyorsak ne ala

Çok uğraşamadım üzerinde ama sanırım şu kodlar işinizi görür.

Private Sub Worksheet_Activate()
Set shgenel = Sheets("GENEL LİSTE")
Range("'GENEL LİSTE'!A1:L10").ClearContents
i = 2
For x = 2 To 11
i = i + 1
If i > 10 Then: GoTo atla
For y = 1 To 12 'genel.sütünlar
shgenel.Cells(x, y) = Sheets(i).Cells(4, y)
Next y
Next x
atla:
For a = 2 To 9
If Me.Cells(a, 1) = 0 Then: Rows(a & ":" & a).Delete shift:=xlUp 'Select , Selection.Delete, Shift:=xlUp
Next a
End Sub

 

[mehmethoca]

üstat ben amacımı iyi anlatamadım özür dilerim
a4 .......................... k4
a5 ............................k5
.
.
.
son kayıt
aktarıcaz ve bunu tüm sınıflar için yapıcaz amaç topluliste alabilmek seans seans veya gün gün yada sınıf sınıf bunun için girilen bütün öğrenci bilgilerini bir sayfada toplayabilmem lazım

 

[mehmethoca]

sayın fcp şu an sorumla ilgilendiğinizi görüyorum büyük mutluluk şimdiden hallolacağını biliyorum

 

[mehmethoca]

sayın fpc
isim için özür dilerim

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları dener misiniz lütfen. Ben de sorunsuz çalışmakta.

Private Sub Worksheet_Activate()
Set shgenel = Sheets("GENEL LİSTE")
Range("'GENEL LİSTE'!A2:L10000").ClearContents 'genel Listeyi temizliyoruz
For i = 3 To 10 'sayfa sayisi indexsi-herbir sayfayı kontrol ediyoruz
sonsatir_sinif = Sheets(i).Cells(65536, 4).End(xlUp).Row 'ilgili sınıftaki kayıt hangi satırda bitiyor
If sonsatir_sinif > 3 Then 'Eğer 3.satırdan aşağıda bitiyorsa;
sonsatir_genel = shgenel.Cells(65536, 4).End(xlUp).Row 'Genel Liste'deki son satırı bul
For y = 4 To sonsatir_sinif 'ilgili sheetten aktarılacak satır sayısı
sonsatir_genel = sonsatir_genel + 1 'son yazılı olan satırın bir altına düşüyoruz
For x = 1 To 12 'ilgili sheetten Aktarılacak sutun sayısı
shgenel.Cells(sonsatir_genel + 1, x) = Sheets(i).Cells(y, x) 'Genel Liste sayfasına aktarıyoruz.
Next x
Next y
End If
Next i
sonsatir_genel = shgenel.Cells(65536, 4).End(xlUp).Row 'Genel Listenin sonsatirini buluyoruz.
For a = 2 To sonsatir_genel '2 satırdan son satıra kadar
If Me.Cells(a, 4) = 0 Then: Rows(a & ":" & a).Delete shift:=xlUp '4 sutunu 0 olan satırları siliyoruz
Next a
End Sub

 

[mehmethoca]

tek kelime ile mükemmel olmuş
elinize sağlık