• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kayıt sayfası oluşturarak verileri sıralamak

M

matay07

Katılım
26 Temmuz 2011
Mesajlar
15
Excel Vers. ve Dili
2007 türkçe
Örneğin sayfa 1 de girdiğim verileri kaydet butonuna tıkladığımda sayfa 2 de belirli bir sıra ile ilk girdiğim verileri ilk sıraya ikinci veriyi ikinci sıraya üçünçü verileri üçün sıraya dizsin örnek dosya da'da Açıkladım...
 

Ekli dosyalar

matay07' Alıntı:
Örneğin sayfa 1 de girdiğim verileri kaydet butonuna tıkladığımda sayfa 2 de belirli bir sıra ile ilk girdiğim verileri ilk sıraya ikinci veriyi ikinci sıraya üçünçü verileri üçün sıraya dizsin örnek dosya da'da Açıkladım...
Genişletmek için tıkla ...

merhaba
bir module atayın ve buton'a atayın
Kod: 
Option Explicit
Sub kaydet()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Dim isim, soyisim, doğum, anne, baba, vs
If Sheets("Sayfa1").Range("C3") = Empty Then _
MsgBox "İsim Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C3").Select: Exit Sub
If Sheets("Sayfa1").Range("C4") = Empty Then _
MsgBox "Soyisim Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C4").Select: Exit Sub
If Sheets("Sayfa1").Range("C5") = Empty Then _
MsgBox "Doğum Tarihi Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C5").Select: Exit Sub
If Sheets("Sayfa1").Range("C6") = Empty Then _
MsgBox "Anne Adı Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C6").Select: Exit Sub
If Sheets("Sayfa1").Range("C7") = Empty Then _
MsgBox "Baba Adı Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C7").Select: Exit Sub
If Sheets("Sayfa1").Range("C8") = Empty Then _
MsgBox "Vs Boş", vbCritical, "Hata": _
Sheets("Sayfa1").Select: Range("C8").Select: Exit Sub
isim = Sheets("Sayfa1").Range("C3")
soyisim = Sheets("Sayfa1").Range("C4")
doğum = Sheets("Sayfa1").Range("C5")
anne = Sheets("Sayfa1").Range("C6")
baba = Sheets("Sayfa1").Range("C7")
vs = Sheets("Sayfa1").Range("C8")
kaplan = Sheets("Sayfa2").Range("C65536").End(xlUp).Row
ts = kaplan + 1
Sheets("Sayfa2").Range("C" & ts).Value = isim
Sheets("Sayfa2").Range("D" & ts).Value = soyisim
Sheets("Sayfa2").Range("E" & ts).Value = doğum
Sheets("Sayfa2").Range("F" & ts).Value = anne
Sheets("Sayfa2").Range("G" & ts).Value = baba
Sheets("Sayfa2").Range("H" & ts).Value = vs
MsgBox "Kayıt Yaptım", vbInformation, "Bitiş"
End Sub
 
Allah razı olsun yaptığınız makroyu modelü geçirdim ve buton ekledim çalışıyor sizin yolladığınız o makrodan yola çıkarak asıl yapmak istediğim excell dosyasına yerleştirdim ve verilri ona göre değiştirdim ama çalışmadı nerde yanlış yaptığımda ayrdımcı olurmusunuz

Dosyayı ekliyorum
 

Ekli dosyalar

matay07' Alıntı:
Allah razı olsun yaptığınız makroyu modelü geçirdim ve buton ekledim çalışıyor sizin yolladığınız o makrodan yola çıkarak asıl yapmak istediğim excell dosyasına yerleştirdim ve verilri ona göre değiştirdim ama çalışmadı nerde yanlış yaptığımda ayrdımcı olurmusunuz

Dosyayı ekliyorum
Genişletmek için tıkla ...

merhaba
module'deki kodu bununla değiştirin
Kod: 
Option Explicit
Sub kaydet()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Dim tarih, tckimlikno, ad, soyad, doğumtarihi, telefon, adres, tutar
Dim alınanücret, rsph, rcyl, raks, radd, rodak, raçıklama, lsph, lcyl, laks, ladd, lodak, laçıklama, çerçevebilgisi
If Sheets("yeni kayıt").Range("C3") = "" Then _
MsgBox "Tarih Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C3").Select: Exit Sub
If Sheets("yeni kayıt").Range("C4") = "" Then _
MsgBox "TcKimlikNo Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C4").Select: Exit Sub
If Sheets("yeni kayıt").Range("C5") = "" Then _
MsgBox "Ad Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C5").Select: Exit Sub
If Sheets("yeni kayıt").Range("C6") = "" Then _
MsgBox "Soyad Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C6").Select: Exit Sub
If Sheets("yeni kayıt").Range("C7") = "" Then _
MsgBox "DoğumTarihi Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C7").Select: Exit Sub
If Sheets("yeni kayıt").Range("C8") = "" Then _
MsgBox "telefon Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C8").Select: Exit Sub
If Sheets("yeni kayıt").Range("C9") = "" Then _
MsgBox "adres Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C9").Select: Exit Sub
If Sheets("yeni kayıt").Range("C10") = "" Then _
MsgBox "tutar Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C10").Select: Exit Sub
If Sheets("yeni kayıt").Range("C11") = "" Then
MsgBox "alınanücret Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C11").Select: Exit Sub
End If
If Sheets("yeni kayıt").Range("C14") = "" Then _
MsgBox "rsph Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C14").Select: Exit Sub
If Sheets("yeni kayıt").Range("C15") = "" Then _
MsgBox "rcyl Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C15").Select: Exit Sub
If Sheets("yeni kayıt").Range("C16") = "" Then _
MsgBox "raks Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C16").Select: Exit Sub
If Sheets("yeni kayıt").Range("C17") = "" Then _
MsgBox "radd Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C17").Select: Exit Sub
If Sheets("yeni kayıt").Range("C18") = "" Then _
MsgBox "rOdak Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C18").Select: Exit Sub
If Sheets("yeni kayıt").Range("C19") = "" Then _
MsgBox "rAçıklama Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C19").Select: Exit Sub
If Sheets("yeni kayıt").Range("C20") = "" Then _
MsgBox "LSph Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C20").Select: Exit Sub
If Sheets("yeni kayıt").Range("C21") = "" Then _
MsgBox "LCyl Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C21").Select: Exit Sub
If Sheets("yeni kayıt").Range("C22") = "" Then _
MsgBox "LAks Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C22").Select: Exit Sub
If Sheets("yeni kayıt").Range("C23") = "" Then _
MsgBox "LAdd Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C23").Select: Exit Sub
If Sheets("yeni kayıt").Range("C24") = "" Then _
MsgBox "LOdak Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C24").Select: Exit Sub
If Sheets("yeni kayıt").Range("C25") = "" Then _
MsgBox "LAçıklama Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C25").Select: Exit Sub
If Sheets("yeni kayıt").Range("C26") = "" Then _
MsgBox "ÇerçeveBilgisi Boş", vbCritical, "Hata": _
Sheets("yeni kayıt").Select: Range("C26").Select: Exit Sub
tarih = Sheets("yeni kayıt").Range("C3")
tckimlikno = Sheets("yeni kayıt").Range("C4")
ad = Sheets("yeni kayıt").Range("C5")
soyad = Sheets("yeni kayıt").Range("C6")
doğumtarihi = Sheets("yeni kayıt").Range("C7")
telefon = Sheets("yeni kayıt").Range("C8")
adres = Sheets("yeni kayıt").Range("C9")
tutar = Sheets("yeni kayıt").Range("C10")
alınanücret = Sheets("yeni kayıt").Range("C11")
rsph = Sheets("yeni kayıt").Range("C14")
rcyl = Sheets("yeni kayıt").Range("C15")
raks = Sheets("yeni kayıt").Range("C6")
radd = Sheets("yeni kayıt").Range("C17")
rodak = Sheets("yeni kayıt").Range("C18")
raçıklama = Sheets("yeni kayıt").Range("C19")
lsph = Sheets("yeni kayıt").Range("C20")
lcyl = Sheets("yeni kayıt").Range("C21")
laks = Sheets("yeni kayıt").Range("C22")
ladd = Sheets("yeni kayıt").Range("C23")
lodak = Sheets("yeni kayıt").Range("C24")
laçıklama = Sheets("yeni kayıt").Range("C25")
çerçevebilgisi = Sheets("yeni kayıt").Range("C26")
kaplan = Sheets("müşteri kayıt").Range("C65536").End(xlUp).Row
ts = kaplan + 1
Sheets("müşteri kayıt").Range("X" & ts).Value = tarih
Sheets("müşteri kayıt").Range("B" & ts).Value = tckimlikno
Sheets("müşteri kayıt").Range("C" & ts).Value = ad
Sheets("müşteri kayıt").Range("D" & ts).Value = soyad
Sheets("müşteri kayıt").Range("E" & ts).Value = doğumtarihi
Sheets("müşteri kayıt").Range("F" & ts).Value = telefon
Sheets("müşteri kayıt").Range("G" & ts).Value = adres
Sheets("müşteri kayıt").Range("U" & ts).Value = tutar
Sheets("müşteri kayıt").Range("V" & ts).Value = alınanücret
Sheets("müşteri kayıt").Range("H" & ts).Value = rsph
Sheets("müşteri kayıt").Range("I" & ts).Value = rcyl
Sheets("müşteri kayıt").Range("J" & ts).Value = raks
Sheets("müşteri kayıt").Range("K" & ts).Value = radd
Sheets("müşteri kayıt").Range("L" & ts).Value = rodak
Sheets("müşteri kayıt").Range("M" & ts).Value = raçıklama
Sheets("müşteri kayıt").Range("N" & ts).Value = lsph
Sheets("müşteri kayıt").Range("O" & ts).Value = lcyl
Sheets("müşteri kayıt").Range("P" & ts).Value = laks
Sheets("müşteri kayıt").Range("Q" & ts).Value = ladd
Sheets("müşteri kayıt").Range("R" & ts).Value = lodak
Sheets("müşteri kayıt").Range("S" & ts).Value = laçıklama
Sheets("müşteri kayıt").Range("T" & ts).Value = çerçevebilgisi
MsgBox "Kayıt Yaptım", vbInformation, "Bitiş"
End Sub
bu arada hiç iyi bir kopyacı değilsiniz :)
 
Amacım kopya çekmek değil makroları sizin gibi tek başıma yazacak şekilde ögrenmektir keşke biraz daha vaktim olsada tam eğilebilsem üstüne daha hızlı bir şekilde nasıl ögrenebilirim sizce makroları güzel bir şekilde ögrenip kendi işimi kolaylaştıracak programlar yazmak istiyorum..
 
matay07' Alıntı:
Amacım kopya çekmek değil makroları sizin gibi tek başıma yazacak şekilde ögrenmektir keşke biraz daha vaktim olsada tam eğilebilsem üstüne daha hızlı bir şekilde nasıl ögrenebilirim sizce makroları güzel bir şekilde ögrenip kendi işimi kolaylaştıracak programlar yazmak istiyorum..
Genişletmek için tıkla ...

bende yeni öğreniyorum.
sitedeki makro örneklerini inceleyin deneyin nasıl işlem yaptığını çözersiniz.
mesela bir örnek kod verildi dosyasını alın kod'u ekleyin dosyaya sonra F8 tuşuna tıklayarak adım adım izleyin. mesela
sub makro1()
msgbox
end sub
ise makro
F8'e tıkladığınızda ilk satır sarı olur tekrar F8 tuşuna tıkladığınızda bu kez ikinci satır sarı olur. hangi satır'ın ne işlem yaptığını bu şekilde öğrenebilirsiniz.
umarım anlatabilmişimdir.
kod işinizi gördü mü_?
 
Çok şükür yaradı kullnıyorum şu an ufak birterslik vardı onuda hallttim çok şükür dediğiniz metodu uygulayacağım işe yarayacağına eminm Bir şey sormk istiyorum yaptığız makroda verileri bir yere değilde çeşitli yerlere kyıt etmenin bir yolu varmı....
 
soru başka taraflara gitmeye başladı
bu durum form kurallarına aykırı. ( kod'u istediğiniz sayfa uyarlıyabilirsiniz )
bu konu artık tamamlandı sanırım. ( diğer sorularınız için ayrı bir konu açın lütfen )
 
Yanlış anlaşıldıysam kusurabakmayın sorumu başa bir konuda sorarım iyi günler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst