form kod hatası

[revenge11]

arkadaşlar vba konusunda yeni başlamış biri olarak boyumdan aşkın bir işe bulaştım ve işin içerisinden çıkamadım yardımınızı bekliyorum.
Sorunum şu bir excel sayfasına vba'dan bir form örneği yaptım ek olarak (form) ekledim ayrıca kayıtın yapılacağı excel sayfasını da ek olarak koydum ama aşağıdaki yazmış olduğum kodlarda hata yaptım işin içinden çıkamıyorum yalvarırım yardım edin






Private Sub CommandButton1_Click()
ass = [A65536].End(3).Row + 1
bss = [A65536].End(3).Row + 1
css = [A65536].End(3).Row + 1
dss = [A65536].End(3).Row + 1
ess = [A65536].End(3).Row + 1
fss = [A65536].End(3).Row + 1
gss = [A65536].End(3).Row + 1
hss = [A65536].End(3).Row + 1
iss = [A65536].End(3).Row + 1
jss = [A65536].End(3).Row + 1
kss = [A65536].End(3).Row + 1
lss = [A65536].End(3).Row + 1
mss = [A65536].End(3).Row + 1
nss = [A65536].End(3).Row + 1
oss = [A65536].End(3).Row + 1
pss = [A65536].End(3).Row + 1
qss = [A65536].End(3).Row + 1
rss = [A65536].End(3).Row + 1
sss = [A65536].End(3).Row + 1
tss = [A65536].End(3).Row + 1
uss = [A65536].End(3).Row + 1
vss = [A65536].End(3).Row + 1
wss = [A65536].End(3).Row + 1
xss = [A65536].End(3).Row + 1
yss = [A65536].End(3).Row + 1
zss = [A65536].End(3).Row + 1
aass = [A65536].End(3).Row + 1
abss = [A65536].End(3).Row + 1
acss = [A65536].End(3).Row + 1
Cells(ass, 1).Value = ass - 1
Cells(bss, 2).Value = bss - 1
Cells(css, 3).Value = css - 1
Cells(dss, 4).Value = dss - 1
Cells(ess, 5).Value = ess - 1
Cells(fss, 6).Value = fss - 1
Cells(gss, 7).Value = gss - 1
Cells(hss, 8).Value = hss - 1
Cells(iss, 9).Value = iss - 1
Cells(jss, 10).Value = jss - 1
Cells(kss, 11).Value = kss - 1
Cells(lss, 12).Value = lss - 1
Cells(mss, 13).Value = mss - 1
Cells(nss, 14).Value = nss - 1
Cells(oss, 15).Value = oss - 1
Cells(pss, 16).Value = pss - 1
Cells(qss, 17).Value = qss - 1
Cells(rss, 18).Value = rss - 1
Cells(sss, 19).Value = sss - 1
Cells(tss, 20).Value = tss - 1
Cells(uss, 21).Value = uss - 1
Cells(vss, 22).Value = vss - 1
Cells(wss, 23).Value = wss - 1
Cells(xss, 24).Value = xss - 1
Cells(yss, 25).Value = yss - 1
Cells(zss, 26).Value = zss - 1
Cells(aass, 27).Value = aass - 1
Cells(abss, 28).Value = abss - 1
Cells(acss, 29).Value = acss - 1
Cells(ass, 1).Value = TextBox1.Text
Cells(bss, 2).Value = TextBox2.Text
Cells(css, 3).Value = ComboBox1.Text
Cells(dss, 4).Value = TextBox4.Text
Cells(ess, 5).Value = ComboBox3.Text
Cells(fss, 6).Value = ComboBox4.Text
Cells(gss, 7).Value = TextBox7.Text
Cells(hss, 8).Value = TextBox8.Text
Cells(iss, 9).Value = TextBox9.Text
Cells(jss, 10).Value = TextBox10.Text
Cells(kss, 11).Value = ComboBox2.Text
Cells(lss, 12).Value = TextBox12.Text
Cells(mss, 13).Value = TextBox13.Text
If OptionButton1.Value = True Then
TextBox32.Enabled = False
TextBox32.Value = "FailiBelli"
Else
TextBox32.Value = Empty
End If
If OptionButton2.Value = True Then
TextBox33.Enabled = False
TextBox33.Value = "FailiMeçhul"
Else
TextBox33.Value = Empty
End If
If OptionButton3.Value = True Then
TextBox34.Enabled = False
TextBox34.Value = "FailiFirar"
Else
TextBox34.Value = Empty
End If
Cells(oss, 16).Value = TextBox16.Text
Cells(pss, 21).Value = TextBox21.Text
Cells(qss, 22).Value = TextBox22.Text
Cells(rss, 29).Value = TextBox29.Text
Cells(sss, 23).Value = TextBox23.Text
Cells(tss, 20).Value = TextBox24.Text
Cells(uss, 21).Value = TextBox25.Text
Cells(vss, 22).Value = TextBox30.Text
Cells(wss, 23).Value = TextBox26.Text
Cells(xss, 24).Value = TextBox27.Text
Cells(yss, 25).Value = TextBox28.Text
Cells(zss, 26).Value = TextBox31.Text
Cells(aass, 27).Value = TextBox18.Text
Cells(abss, 28).Value = TextBox19.Text
Cells(acss, 29).Value = TextBox20.Text
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox4.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
ComboBox2.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox16.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox29.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox30.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox31.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
End Sub

 

[dEdE]

Merhaba,
Sorunuz anlaşılmıyor, Ne yapmak istediğinizi açıklayacak biçimde örnek dosya eklemeniz mümkün mü?

 

[revenge11]

Merhaba,
Sorunuz anlaşılmıyor, Ne yapmak istediğinizi açıklayacak biçimde örnek dosya eklemeniz mümkün mü?

hocam iki tane resim koydum birisi vba olarak yaptığım form diğeride bu forma işleyeceğm verilerin çıkmasını istediğim excel bu form için yazdığım kodlar da hata alıyorum ÖRNEK:Cells(oss, 16).Value = TextBox16.Text ama çözemedim ek olarak yapmış olduğum dosyayının örneğini gönderiyorum yardım edebilirseniz çok minnettar kalırım.

 

[dEdE]

arkadaşlar vba konusunda yeni başlamış biri olarak boyumdan aşkın bir işe bulaştım ve işin içerisinden çıkamadım ....yazmış olduğum kodlarda hata yaptım işin içinden çıkamıyorum ....

Merhaba,
Lütfen böyle duygulara kapılmayın. Yardımcı oluruz.
Ben VBA penceresini ilk açtığımda Excele dönemediğim için bilgisayarı kapatmıştım.
Dosyanızı inceledim ve UserFormda bazı görsel değişiklikler yaptım. Kodlarınızı da düzelttim. Aslında hem excel tablonuzda hemde UserFormda fazladan kullanılan alanlar var gibi. Ama konuyu siz bildiğiniz için onlara müdahale etmedim. Örneğin tarih girildikten sonra ay adı ve gün adının ayrıca girilmesine gerek yoktur. Bu bilgiler tarih verisinden alınarak görüntülenebilir, (kodu bu işlemi yapcak şekilde yazdım) excel tablosuna kaydetmek boşu boşuna dosya boyutunu buyutmek demektir.
Dosyanız ilişiktedir.
Hoşçakalın.

 

[revenge11]

teşekkürler

çok sağolun sizede zahmet verdim. Tam yapmak istediğim tarzda ne kadar teşekkür etsem azdır. Kendim becedemedim birkaç kişiden yardım istedim oralı olmadılar cok çok teşekkürler ne yazacağımı bilemedim çok çok sağolun.

 

[dEdE]

çok sağolun sizede zahmet verdim. Tam yapmak istediğim tarzda ne kadar teşekkür etsem azdır. Kendim becedemedim birkaç kişiden yardım istedim oralı olmadılar cok çok teşekkürler ne yazacağımı bilemedim çok çok sağolun.

Merhaba,
Önemli değil, yardımcı olabildimse mutlu olurum.
Bu arada örnek dosyaya eklediğim Sayfa2 ile UserFormun kodunda bulunan ve

Sub nn()
....
end sub

ile biten bölümler gereksizdir silmeyi unutmuşum. Onları dikkate almayın ve silin.
Hoşçakalın.

 

[revenge11]

Merhaba,
Önemli değil, yardımcı olabildimse mutlu olurum.
Bu arada örnek dosyaya eklediğim Sayfa2 ile UserFormun kodunda bulunan ve [/B]ile biten bölümler gereksizdir silmeyi unutmuşum. Onları dikkate almayın ve silin.
Hoşçakalın.

hocam sanki ay ve haftalarda bir sorun var ay butonunda aylar gün bütonunda günler çıkmıyordu ama hallettim sanırım herşey için çok sağolun elinize sağlık.

 

[dEdE]

Merhaba,
Hata yapmadınız yukarıda da belirttiğim gibi, siz tarihi yazınca ay ve gün otomatik bulunuyor. Örneğin tarih textboxuna 24.12.2012 yazıp entere bastığınızde Aralık ve Pazartesi otomatik olarak tarihten alınıp ilgili comboboxlara yazılıyor. Eğer bunu istemiyorsanız kodlarda bulunan aşağıdaki kısmı silip, cobboboxun Rowsource kısmını yeniden düzenlemeniz gerekecek.
Ay ve günün otomatik olarak tarihten alınmasını istemiyorsanız kodun aşağıda belirttiğim kısmını silin.

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox3.Text = Format(TextBox4.Value, "mmmm")
ComboBox4.Text = Format(TextBox4.Value, "dddd")
End Sub