İki farklı sayfaya kayıt yapmak

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.

[attachment=22433]

Arkadaşlar sorunumu çözdüm.

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.

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.

[attachment=22438]

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

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.


yapılan paylaşım,sadece,bu bulduğunuz çözüm üzerinden bahsi geçilerek sunulmuştur.zaman ve imkan olmadığından dolayı ilk etapta yapılan incelemelerde görülen hususlar bunlardır.bilginize.

iyi çalışmalar,saygılar.

(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.