Userformun açılışta açılması, yeni kayıt yapması

[sonsuz33a]

Arkadaşlar merhaba. Ekteki dosyayı incelerseniz sevinirim. Kendi Çapımda sizin forumuzda yer alan bilgilere dayanarak bir şeyler yapmak istedim. Ama belirli bir yere gelince tıkandım. Yaşadığım sorunlar aşağıdaki gibidir.


1- Oluşturmuş olduğum UserFormun excel dosyası açıldığı zaman otomatik olarak açılmasını

2- User Form üzerinde İlgili aylar tıkladığımda direk olarak o aya gitmesi ve orada yeni kayıt girişi yapabilmem.

3- Arf. No yazıp arama yapabilmem ve bulunan arf.yi iadesi yapıldı tuşuna bastığımda tablodaki örnek boyanması.


4- Yeni kayıt yapmak istediğimde sürekli hata veriyor ve ilgili boş satıra denk getiremiyorum.

Arkadaşlar yardımlarınız için şimdiden teşekkürler. Herkesin eline sağlık.

 

[mustafakoker]

Arkadaşım hazırlamış olduğun userformun hangisinin açılmasını istiyorsan aşağıdaki kod ile açabilirsin
Sub Autpen ()
Userform1.Show
End Sub

 

[sonsuz33a]

Arkadaşım hazırlamış olduğun userformun hangisinin açılmasını istiyorsan aşağıdaki kod ile açabilirsin
Sub Autpen ()
Userform1.Show
End Sub

İlgine teşekkür ederim diğer sorunlar içinde yardımcı olursan sevinirim.

 

[Tarkan VURAL]

1- Oluşturmuş olduğum UserFormun excel dosyası açıldığı zaman otomatik olarak açılmasını
2- User Form üzerinde İlgili aylar tıkladığımda direk olarak o aya gitmesi ve orada yeni kayıt girişi yapabilmem.
3- Arf. No yazıp arama yapabilmem ve bulunan arf.yi iadesi yapıldı tuşuna bastığımda tablodaki örnek boyanması.
4- Yeni kayıt yapmak istediğimde sürekli hata veriyor ve ilgili boş satıra denk getiremiyorum.

1 - Yanıtını almışsınız.
2 - Sayfaları zaten seçiyor. Seçimden sonra prosedür içine Unload me ve sonraki satıra UserForm2.Show yazarak yeni kayıt için diğer formu çağırabilirsiniz.
3 -Arf.Aramak için

Private Sub TextBox1_Change()
Dim bul As Range
For Each bul In ActiveSheet.Range("b4:b" & ActiveSheet.Range("b65536").End(3).Row)
    If bul.Value = Me.TextBox1.Value Then
        bul.Select
    End If
Next bul
End Sub

kullanabilirsiniz.
4 -

ListBox1.RowSource = "ARALIK!B2:C" & Sheets("ARALIK").Range("A3").End(x1down).Row

Bu satırda x1down hatalıdır. XLDOWN olarak yazın ( küçük büyük fark etmez, ya da sadece 4 yazın. )

 

[sonsuz33a]

1 - Yanıtını almışsınız.
2 - Sayfaları zaten seçiyor. Seçimden sonra prosedür içine Unload me ve sonraki satıra UserForm2.Show yazarak yeni kayıt için diğer formu çağırabilirsiniz.
3 -Arf.Aramak için

Private Sub TextBox1_Change()
Dim bul As Range
For Each bul In ActiveSheet.Range("b4:b" & ActiveSheet.Range("b65536").End(3).Row)
    If bul.Value = Me.TextBox1.Value Then
        bul.Select
    End If
Next bul
End Sub

kullanabilirsiniz.
4 -

ListBox1.RowSource = "ARALIK!B2:C" & Sheets("ARALIK").Range("A3").End(x1down).Row

Bu satırda x1down hatalıdır. XLDOWN olarak yazın ( küçük büyük fark etmez, ya da sadece 4 yazın. )

İlgini çok teşekkür ederim. Ellerine sağlık. Gerekli düzeltmeyi yaptım ama sırayı takip etmiyor. direk 1. satırdan başlıyor. Tekrar teşekkürler

 

[sonsuz33a]

Son olarak bulunan satırı İadesi yapıldı düğmensine basıldığı zaman nasıl tablodaki gibi boyayabilirim.