Veri türüne göre sayfalara aktarma

[lirzan]

arkadaşlar bende makro kullanarak sayfa1 de bulunan sutunda kaldı gecti yazan hucrelerım var kaldı yazan hucrelerı kalan sayfasına gecti yazan hucreleri gecti sayfasına aktarmak ıstıyorum yardımcı olurmusunuz lütfen

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile desteklerseniz daha çabuk yanıt alırsınız.

Kaldı yada Geçti hangi sütunda?
Veriler kaç sütundan oluşuyor?
Verileri aktardık diyelim 2 sayfaya, aktarılan veriler silinecek mi yoksa kalacak mı?

vs vs vs yani

 

[lirzan]

kalanları ve gecenelri ayrı sayfalara aktardıktan sonra sayfa1 de bulunann genel lısteden hıc bır kayıt sılınmıycek kalan öğrenciler kalan sayfasına gecen öğrenciler gecen sayfasına gönderilcek

 

[BG]

sayın lirzan

dosyanız ektedir,

 

[lirzan]

sayın brain öncelikle çok teşekkür ediyorum
eklediğiniz dosyayı açamıyorum
acaba mail ile gondermeniz mumkunmudur
dosyayı acmaya calsırken kullanıcı adı ve şifre isitiyorum bilhgilerimi girdiğim halde açamıyorum dosyayı

 

[Necdet]

Çeşit olsun.

Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set sk = Sheets("KALAN")
Set sg = Sheets("GECEN")
Dim i, G, K, SatK, SatG As Integer
Application.ScreenUpdating = False
SatK = 1
SatG = 1
sk.Range("A2:B65536").ClearContents
sg.Range("A2:B65536").ClearContents
For i = 2 To s1.[A65536].End(3).Row
    If s1.Cells(i, "C") = "KALDI" Then
        SatK = SatK + 1
        K = K + 1
        sk.Cells(SatK, "A") = s1.Cells(i, "A")
        sk.Cells(SatK, "B") = s1.Cells(i, "B")
    Else
        SatG = SatG + 1
        G = G + 1
        sg.Cells(SatG, "A") = s1.Cells(i, "A")
        sg.Cells(SatG, "B") = s1.Cells(i, "B")
    End If
    
Next i
Application.ScreenUpdating = True
MsgBox "Geçen : " & G & Chr(13) & "Kalan : " & K & Chr(13) & "Olmak Üzere Toplam " & G + K & " Kişi Aktarılmıştır...:"
End Sub

 

[lirzan]

brain cok teşekkür ediyorum cok sağol işime cok yaradı

 

[lirzan]

merhabalar
mysql bağlantısı ile sorgu yazarak excelle veri aktarmak isityorum il aşamada gerekli olan verileri ve mysql bağlantı kodlarını oluşturdum ve çalışıyor ancak 2 aşama için cok acil yardıma ihtiyacım var yardım etmek ısteyen arkadas olursa uzerınde çalıştgım dosyayı ve yapmak istediklerimi eklerim