hoguz2
14-10-2004, 18:07
Merhaba; arakdaslar bir form hazirlarken bir suru yerde takildim. Srularim cok ama ustadlar icin basit cevaplari oldugu icin yuzum kizarmadan arkasi arkasina soracagim.
1. textbox da Alt+Enter yaptigim zaman excel hucresindeki fonksion gibi ikinci satira gecsin istiyorum.
2.textbox ta 0,201 gibi rakamlar yazamiyorum.
3.Range("A1").Select
Selection.NumberFormat = "#,##0.000 [$USD]"
hucreye 3 yada 5 haneli bir rakam yazdirirsam arkasina usd koyuyor ama rakam 5 yada 6 haneyi gecerse olmuyor.
en önemli sorum ise
4. user form daki bilgileri ekle dedigimde excel a19 a gitsin bos mu diye baksin bos ise degilse alttaki satira a20 ye ...... diye devam ve son hucre a40 a40 dolu ise a41 e yazdirmasin uyari versin yeni form acin gibi bir seyler uydururum ben oraya.
Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(-1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a1") = TextBox1.Value
Range("b1") = ComboBox1.Text
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = ComboBox1.Text
End Sub
bu kodu bir turlu uyarlayamadim kendime
tesekkur ederim iyi çalışmalar,
1. textbox da Alt+Enter yaptigim zaman excel hucresindeki fonksion gibi ikinci satira gecsin istiyorum.
2.textbox ta 0,201 gibi rakamlar yazamiyorum.
3.Range("A1").Select
Selection.NumberFormat = "#,##0.000 [$USD]"
hucreye 3 yada 5 haneli bir rakam yazdirirsam arkasina usd koyuyor ama rakam 5 yada 6 haneyi gecerse olmuyor.
en önemli sorum ise
4. user form daki bilgileri ekle dedigimde excel a19 a gitsin bos mu diye baksin bos ise degilse alttaki satira a20 ye ...... diye devam ve son hucre a40 a40 dolu ise a41 e yazdirmasin uyari versin yeni form acin gibi bir seyler uydururum ben oraya.
Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(-1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a1") = TextBox1.Value
Range("b1") = ComboBox1.Text
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = ComboBox1.Text
End Sub
bu kodu bir turlu uyarlayamadim kendime
tesekkur ederim iyi çalışmalar,
