Yardım. Commandbutton ile çalışma sayfama veri aktarma

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

Yardım. Commandbutton ile çalışma sayfama veri aktarma

İleti#1)  kadopol » 12 Eyl 2018 23:59

Arkadaşlar işyeri için hazırladığım bir programda listwievden seçtiğim bilgiler textboxlara geliyor. Commandbutton11 e tıkladığımda userform arayüzü kapanıyor. Masaüstünde bulunan PERŞEMBE-PAZARTESİ.xls dosyasına kaydediliyor. Buraya kadar sorun yok. Ben Commandbutton11 e tıkladığımda denetim userformumun kapanmasını çalışma sayfamdaki denetim1 sayfamın ilgili sütunlarına aktarmasını istiyorum. Yardımlarınızı bekliyorum lütfen.


Private Sub CommandButton11_Click()
Dim yenikitap As Workbook, sayfam As Worksheet
If TextBox2.Value <> TextBox3.Value <> TextBox4.Value <> Empty Then
Set yenikitap = Workbooks.Open(ThisWorkbook.Path & "\PERŞEMBE-PAZARTESİ.xls")
Set sayfam = yenikitap.sheets(1)
sayfam.Range("b1").Value = TextBox3.Value
sayfam.Range("d1").Value = TextBox4.Value
sayfam.Range("d2").Value = TextBox2.Value
sayfam.Range("f1").Value = ComboBox4.Value
sayfam.Range("d3").Value = TextBox8.Value
sayfam.Range("d4").Value = TextBox7.Value
sayfam.Range("d5").Value = TextBox9.Value
sayfam.Range("f5").Value = TextBox10.Value
sayfam.Range("d6").Value = TextBox5.Value
sayfam.Range("d7").Value = ComboBox2.Value
sayfam.Range("b10").Value = TextBox11.Value
ActiveWorkbook.Save
Unload denetim
UserForm8.Show
Set sayfam = Nothing
Set yenikitap = Nothing
End If
End Sub
Kullanıcı avatarı
kadopol
Yeni Başlamış
 
Adı Soyadı:hasan ham
Kayıt: 28 Nis 2009 18:26
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

Cevap: Yardım. Commandbutton ile çalışma sayfama veri aktarm

İleti#2)  Ali ÖZ » 14 Eyl 2018 14:57

Kod: Tümünü seç
If TextBox2.Value <> TextBox3.Value <> TextBox4.Value <> Empty Then
Sheets("denetim1").Range("b1").Value = TextBox3.Value
Sheets("denetim1").Range("d1").Value = TextBox4.Value
Sheets("denetim1").Range("d2").Value = TextBox2.Value
Sheets("denetim1").Range("f1").Value = ComboBox4.Value
Sheets("denetim1").Range("d3").Value = TextBox8.Value
Sheets("denetim1").Range("d4").Value = TextBox7.Value
Sheets("denetim1").Range("d5").Value = TextBox9.Value
Sheets("denetim1").Range("f5").Value = TextBox10.Value
Sheets("denetim1").Range("d6").Value = TextBox5.Value
Sheets("denetim1").Range("d7").Value = ComboBox2.Value
Sheets("denetim1").Range("b10").Value = TextBox11.Value
ActiveWorkbook.Save
Unload denetim
UserForm8.Show
End if
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Yardım. Commandbutton ile çalışma sayfama veri aktarm

İleti#3)  kadopol » 14 Eyl 2018 21:04

Hocam teşekkürler emeğinize sağlık.
Kullanıcı avatarı
kadopol
Yeni Başlamış
 
Adı Soyadı:hasan ham
Kayıt: 28 Nis 2009 18:26
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin


Forum CommandButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe