Çözüldü yenilenmeme sorunu ?

Katılım
29 Ocak 2014
Mesajlar
130
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Altın Üyelik Bitiş Tarihi
24.12.2022
Arkadaşlar Merhaba,

aşağıdaki resimde, giriş yaptıktan sonra direk aşağıdaki listeye geçmesini istiyorum. fakat yenileme olmuyor. direk karşıma çıkmıyor. giriş ekranı kapatıp açmam gerekiyor nerede yanlış yaptım ?



formul:
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Örnek dosya yollarsanız daha doğru olacaktır.:cool:
 
Katılım
29 Ocak 2014
Mesajlar
130
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Altın Üyelik Bitiş Tarihi
24.12.2022
hocam bir de "giriş ekranı" tablosunu açtığımda, excel tablosu alt sekmeye geçmesini yapmak istedim yapamadım.
 

Ekli dosyalar

Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.
Kod:
Private Sub CommandButton1_Click()
say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("b:b"))  'Sayfa1 A sütunundaki dolu hücre sayısı.
If ComboBox1 = "" Then MsgBox "Profil İsmi boş olamaz!", vbCritical: Exit Sub
If TextBox1 = "" Then MsgBox "Birim Boy boş olamaz!", vbCritical: Exit Sub
If TextBox2 = "" Then MsgBox "Adet boş olamaz!", vbCritical: Exit Sub
If TextBox3 = "" Then MsgBox "Açıklama boş olamaz!", vbCritical: Exit Sub
ListBox1.RowSource = ""
Range("B" & say + 1).Value = ComboBox1.Value 'Hücrelere TextBox'lardaki değerleri yazıyoruz.
Range("C" & say + 1).Value = TextBox1.Value
Range("D" & say + 1).Value = TextBox2.Value
Range("E" & say + 1).Value = TextBox3.Value
ListBox1.RowSource = "Sayfa1!" & "B1" & ":" & "E" & say + 1
End Sub
Öteki sorunuzu anlamadım.:cool:
 
Katılım
29 Ocak 2014
Mesajlar
130
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Altın Üyelik Bitiş Tarihi
24.12.2022
excel dosyasını açtığımda, ekranda sadece "giriş ekranı" tablosunu görmek istiyorum.
 
Katılım
29 Ocak 2014
Mesajlar
130
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Altın Üyelik Bitiş Tarihi
24.12.2022
ben bunun gibi iki ekran daha yapacağım Giriş ekranı, Çıkış Ekranı adında
Standart bir modüle yapıştırın.:cool:
Kod:
Sub auto_open()
UserForm2.Show
End Sub
Tamamdır yaptım. bu dosya üzerinde çalışmalara devam edicem bu bölümden yeninden sorularım çıkacak :) tekrar dan yardımlarınız bekliyecem teşekkürler saygılarımla
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.
İyi çalışmalar.:cool:
 
Katılım
29 Ocak 2014
Mesajlar
130
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Altın Üyelik Bitiş Tarihi
24.12.2022
Rica ederim.
İyi çalışmalar.:cool:
iki sorum daha var:

Birincisi; Visual Basic düğmeye nasıl bağlayabilirim. Yani Direk düğmeye bağlayabilirim. :)

İkincisi; Ekteki dosyada SAYFA1 DAYKEN, "TIKLA" BUTON KULLANDIĞIMDA SAYFA1 GİRİLİYOR.

SAYFA2 AYNI ŞEKİLDE BUTON BASTIĞIMDA SAYFA2 GİRİŞ OLUYOR BUNUN SEBEBİ NEDİR ?

SAYGILARIMLA
 

Ekli dosyalar

Üst