+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İki farklı sayfaya kayıt yapmak (/konu-iki-farkli-sayfaya-kayit-yapmak.html)
Sayfalar:
1
2
İki farklı sayfaya kayıt yapmak - kenan827 - 12/04/2015
Merhaba arkadaşlar Ekli dosyamda;
*Verileri TextBoxlara girip kaydet butonunu tıkladığım zaman veri sayfasına kayıt yapıyor aynı zamanda Fatura sayfasındaki Müşteri adı ve soyadı , adresi vergi dairesi ve nosun kısmına da aktarsın.
* UserFormdakı müşteri bul TextBox su ile ListBox tan bulup TextBoxlara aldığımız müşteriyi fatura butonuna tıkladığımız zaman faturadaki Müşteri adı ve soyadı , adresi vergi dairesi ve nosun kısmına aktarsın ve fatura sayfasına gitsin.
Yardımlarınızı bekliyorum teşekkürler.
ÖRNEK.rar
(Dosya Boyutu: 132,53 KB | İndirme Sayısı: 17)
Cvp: İki farklı sayfaya kayıt yapmak - kenan827 - 13/04/2015
Arkadaşlar sorunumu çözdüm.
Cvp: İki farklı sayfaya kayıt yapmak - atoz112 - 13/04/2015
sayın kenan827,
öncelikle,sorununuzu çözmeniz sizin adınıza iyi bir gelişmedir.
fakat eğer siz de takdir eder ya da tercih ederseniz,
elde ettiğiniz çözümünüzü konunuzda gerek bilgi ve gerekse de örneğinizin çözülmüş olarak son şeklini içeren halini ekleyerek paylaşmak sureti ile,benzer soruna dair araştırma yapacak üyelerin incelemelerine,bilgi edinmelerine ve çözüme yönelik örneği görmelerine de imkan sağlamış olursunuz.bilginize.
iyi çalışmalar,
saygılar.
Cvp: İki farklı sayfaya kayıt yapmak - kenan827 - 14/04/2015
Hocam Fatura butonuna aşağıdaki kodları ekleyerek sorunumu hal ettim. İlk etapta oldu sonradan aktarılacak hücreleri değiştirdiğim zaman hata vermeye başladı şu anda aktarma yapmıyor. Hata veriyor. Aktarma hatasının düzeltilmesi için sizlerden yardım bekliyorum.
Örnek.rar
(Dosya Boyutu: 138,78 KB | İndirme Sayısı: 8)
Hata Veren Kodlar
Private Sub CommandButton33_Click()
Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("h6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat
If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
If TextBox8.Value = "" Then
MsgBox ("Tarihi Boş Geçemessiniz")
Exit Sub
End If
If TextBox9.Value = "" Then
MsgBox ("Saatı Boş Geçemessiniz")
Exit Sub
End If
TextBox8.Value = Format(Now(), "dd.mm.yyyy")
TextBox9.Value = Format(Now(), "hh:mm;@")
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize
UserForm1.Hide
Sheets("Fatura").Select
End Sub
Cvp: İki farklı sayfaya kayıt yapmak - atoz112 - 14/04/2015
sayın kenan827,
bahsettiğiniz talebinize yönelik olarak,çözüme dair aşağıdaki bilgilerin yeterli olduğu görülmüştür.
eklediğiniz hali ile kodlarınız dahil edildiğinde edinilen ilk incelemede elde edilen hata,
Userform üzerinde Tarih ve Saat bilgileri için kullanılmak istenen Textbox 8 ve Textbox 9 denetimlerinin olmadığı için,
denetim bulunamadığı uyarısı söz konusudur.
yapılması gereken iki işlem var.ya Userform üzerine bu adlarda iki denetim eklemelisiniz.ki,öncelikle bu hatayı vermesin diye.
ya da ekte yer alan kod ifadelerini mevcut olan ile değiştirerek kullanmalısınız.ki,bu hata verme sorun giderilebilsin.
Kod:
Private Sub CommandButton33_Click()
Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("I6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
'Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
'Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat
Sheets("Fatura").Range("n5").Value = Format(Date, "dd.mm.yyyy")
Sheets("Fatura").Range("n6").Value = Format(Now, "hh:mm:ss")
If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
'If TextBox8.Value = "" Then
'MsgBox ("Tarihi Boş Geçemessiniz")
'Exit Sub
'End If
'
'If TextBox9.Value = "" Then
'MsgBox ("Saatı Boş Geçemessiniz")
'Exit Sub
'End If
'
'TextBox8.Value = Format(Now(), "dd.mm.yyyy")
'TextBox9.Value = Format(Now(), "hh:mm;@")
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize
UserForm1.Hide
Sheets("Fatura").Select
End Subiyi çalışmalar,saygılar.
Cvp: İki farklı sayfaya kayıt yapmak - kenan827 - 14/04/2015
(14/04/2015, 11:26)atoz112 yazdı: hata,
Userform üzerinde Tarih ve Saat bilgileri için kullanılmak istenen Textbox 8 ve Textbox 9 denetimlerinin olmadığı için,denetim bulunamadığı uyarısı söz konusudur.
ya Userform üzerine bu adlarda iki denetim eklemelisiniz.ki,öncelikle bu hatayı vermesin diye.ya da ekte yer alan kod ifadelerini mevcut olan ile değiştirerek kullanmalısınız.ki,bu hata verme sorun giderilebilsin.
...
Hocam kodları sizin eklediğiniz kodlarla değiştirdim. Ekteki resimdeki hatayı veriyor. Tarih ve saat kodlarını tamamen sildim. Yine aynı hatayı veriyor.