• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

textbox daki değeri ilk satıra aktarmak

C

CILEKESH

Katılım
26 Kasım 2006
Mesajlar
234
Excel Vers. ve Dili
2010-2013 Türkçe
Sheets("Giderler").Select
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If

If Range("A2").Value = "" Then ' Forma yazılanları Gelirler Sayfasına aktar
Range("A2").Select
ActiveCell.Value = 1
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6
Else
[A65536].End(xlUp).Offset(1, 0).Select ' Boşlukları görür sıradaki satıra yazması için
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6



Bu kod Sayfanın ilk 4 satırı dolu iken 5.satırından itibaren doğru çalışıyor ama ben ilk 2 satır başlık iken 3.satırdan itibaren başlatmak istiyorum. Dosya ektedir.
 

Ekli dosyalar

CILEKESH' Alıntı:
Sheets("Giderler").Select
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If

If Range("A2").Value = "" Then ' Forma yazılanları Gelirler Sayfasına aktar
Range("A2").Select
ActiveCell.Value = 1
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6
Else
[A65536].End(xlUp).Offset(1, 0).Select ' Boşlukları görür sıradaki satıra yazması için
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6



Bu kod Sayfanın ilk 4 satırı dolu iken 5.satırından itibaren doğru çalışıyor ama ben ilk 2 satır başlık iken 3.satırdan itibaren başlatmak istiyorum. Dosya ektedir.
Genişletmek için tıkla ...

Merhaba
Bu kodu dener misiniz_?
Kod: 
Private Sub CommandButton2_Click()
Dim ts, trabzonspor
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("GİDERLER")
trabzonspor = ts.Range("B" & Rows.Count).End(xlUp).Row
ts.Range("B" & trabzonspor + 1) = TextBox1
ts.Range("C" & trabzonspor + 1) = TextBox2
ts.Range("D" & trabzonspor + 1) = TextBox3
ts.Range("E" & trabzonspor + 1) = TextBox4
ts.Range("F" & trabzonspor + 1) = TextBox5
ts.Range("G" & trabzonspor + 1) = TextBox6
ts.Range("A3") = 1
ts.Range("A3:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Unload Me ' Formu yenile
UserForm1.Show
End Sub
 
İhsan Tank' Alıntı:
Merhaba
Bu kodu dener misiniz_?
Kod: 
Private Sub CommandButton2_Click()
Dim ts, trabzonspor
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("GİDERLER")
trabzonspor = ts.Range("B" & Rows.Count).End(xlUp).Row
ts.Range("B" & trabzonspor + 1) = TextBox1
ts.Range("C" & trabzonspor + 1) = TextBox2
ts.Range("D" & trabzonspor + 1) = TextBox3
ts.Range("E" & trabzonspor + 1) = TextBox4
ts.Range("F" & trabzonspor + 1) = TextBox5
ts.Range("G" & trabzonspor + 1) = TextBox6
ts.Range("A3") = 1
ts.Range("A3:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Unload Me ' Formu yenile
UserForm1.Show
End Sub
Genişletmek için tıkla ...

Olmuş çokda güzel olmuş. Elinize Sağlık
 
CILEKESH' Alıntı:
Olmuş çokda güzel olmuş. Elinize Sağlık
Genişletmek için tıkla ...

Private Sub CommandButton24_Click() 'Kaydet Butonu
Dim ts, trabzonspor
If TextBox14 = "" Or ComboBox8 = "" Or ComboBox9 = "" Or TextBox15 = "" Or TextBox16 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Giderler")
trabzonspor = ts.Range("b" & Rows.Count).End(xlUp).Row
ts.Range("B" & trabzonspor + 1) = TextBox14
ts.Range("C" & trabzonspor + 1) = ComboBox8
ts.Range("D" & trabzonspor + 1) = TextBox16
ts.Range("E" & trabzonspor + 1) = ComboBox9
ts.Range("F" & trabzonspor + 1) = Val(TextBox15)

ts.Range("A3") = 1
ts.Range("A3:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Unload Me ' Formu yenile
UserForm2.Show
End Sub


Yukarıdaki şekilde uyarladığımda birinci işlemin sadece tarih kısmını yazıyor. Sonraki işlemleri doğru yapıyor.

Giderler Formuna Bakabilirmisiniz?
 

Ekli dosyalar

  • frame.rar
    frame.rar
    358.3 KB · Görüntüleme: 17
  • hata.jpg
    hata.jpg
    19.5 KB · Görüntüleme: 8
İhsan Tank' Alıntı:
Sorunun ne olduğunu anlamadım
Genişletmek için tıkla ...

İhsan bey Dikkat ederseniz Giderler Sekmesinde 3.satırda sıra nosu ve Tarih bölümü dışında diğer hücreler boş.

O hücreleri silip formdan tekrar kayıt oluşturmayı denediğinizde Kodun 3.satır için çalışmadığını ancak sonraki satırlar için çalıştığını göreceksiniz.
 
CILEKESH' Alıntı:
İhsan bey Dikkat ederseniz Giderler Sekmesinde 3.satırda sıra nosu ve Tarih bölümü dışında diğer hücreler boş.

O hücreleri silip formdan tekrar kayıt oluşturmayı denediğinizde Kodun 3.satır için çalışmadığını ancak sonraki satırlar için çalıştığını göreceksiniz.
Genişletmek için tıkla ...

Benim elimdeki kitap'da boş satır yok yanlışlık olmasın.
Yada şöyle söyliyeyim siz sil butonu oluşturmak istiyorsunuz ama sildiğiniz sanıra kayır yapsın mı istiyorsunuz. Bu zor ama sildiğinizde alt satırlar yukarı çıkar ve o satır dolar ama değişiklik yapmak için buton oluşturursanız o satırdaki bilgileri değiştirip yeniden giriş yapabilirsiniz_?
 
İhsan Tank' Alıntı:
Benim elimdeki kitap'da boş satır yok yanlışlık olmasın.
Yada şöyle söyliyeyim siz sil butonu oluşturmak istiyorsunuz ama sildiğiniz sanıra kayır yapsın mı istiyorsunuz. Bu zor ama sildiğinizde alt satırlar yukarı çıkar ve o satır dolar ama değişiklik yapmak için buton oluşturursanız o satırdaki bilgileri değiştirip yeniden giriş yapabilirsiniz_?
Genişletmek için tıkla ...

Kitap açıldığında ekranda görüntülenen Userform1 (Gelirler). Burada sorun yok.

Benim kodu kullanmak istediğim Forma Giderler Butonuna basarak (Userform2) ye geçiş yapınız. Hata veren kısım burası. Giderler Formu Excel'in "Giderler" sekmesine veri ataması yapacak. Giderler!A3 ve B3 hücreleri dolu. yani sorun yok ama c3 d3 e3 ve F3 de yazdığımız koda göre dolması gerekirdi.

Silme veya Değiştirme ile ilgili bir sorunum yok şuan için.
 
CILEKESH' Alıntı:
Kitap açıldığında ekranda görüntülenen Userform1 (Gelirler). Burada sorun yok.

Benim kodu kullanmak istediğim Forma Giderler Butonuna basarak (Userform2) ye geçiş yapınız. Hata veren kısım burası. Giderler Formu Excel'in "Giderler" sekmesine veri ataması yapacak. Giderler!A3 ve B3 hücreleri dolu. yani sorun yok ama c3 d3 e3 ve F3 de yazdığımız koda göre dolması gerekirdi.

Silme veya Değiştirme ile ilgili bir sorunum yok şuan için.
Genişletmek için tıkla ...

Öncelikle şunu söyliyeyim.
Kayıt yaptıktan sonra o satıra bir daha işlemi kaydet butonu ile yapamazsınız kaydet butonu en son dolu satırı bulur ve bir alt satırına kayıt yapar. Bunu sadece Düzelt butonu ile yapabilirsiniz_?
Bir de kod da gereksiz olan bir şey farkkettim düzelteyim dedim. Teztbox14'ün exit olayına yazdığınız kodu silin. ve Kaydet butonundaki kodu bununla değiştirin.
Kod: 
Private Sub CommandButton24_Click() 'Kaydet Butonu
Dim ts, trabzonspor
If TextBox14 = "" Or ComboBox8 = "" Or ComboBox9 = "" Or TextBox15 = "" Or TextBox16 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Giderler")
trabzonspor = ts.Range("b" & Rows.Count).End(xlUp).Row
ts.Range("B" & trabzonspor + 1) = CDate(TextBox14)
ts.Range("C" & trabzonspor + 1) = ComboBox8
ts.Range("D" & trabzonspor + 1) = TextBox16
ts.Range("E" & trabzonspor + 1) = ComboBox9
ts.Range("F" & trabzonspor + 1) = Val(TextBox15)
ts.Range("A3") = 1
ts.Range("A3:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Unload Me ' Formu yenile
UserForm2.Show
End Sub
 
İhsan Tank' Alıntı:
Öncelikle şunu söyliyeyim.
Kayıt yaptıktan sonra o satıra bir daha işlemi kaydet butonu ile yapamazsınız kaydet butonu en son dolu satırı bulur ve bir alt satırına kayıt yapar. Bunu sadece Düzelt butonu ile yapabilirsiniz_?
Bir de kod da gereksiz olan bir şey farkkettim düzelteyim dedim. Teztbox14'ün exit olayına yazdığınız kodu silin. ve Kaydet butonundaki kodu bununla değiştirin.
Kod: 
Private Sub CommandButton24_Click() 'Kaydet Butonu
Dim ts, trabzonspor
If TextBox14 = "" Or ComboBox8 = "" Or ComboBox9 = "" Or TextBox15 = "" Or TextBox16 = "" Then 'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Giderler")
trabzonspor = ts.Range("b" & Rows.Count).End(xlUp).Row
ts.Range("B" & trabzonspor + 1) = CDate(TextBox14)
ts.Range("C" & trabzonspor + 1) = ComboBox8
ts.Range("D" & trabzonspor + 1) = TextBox16
ts.Range("E" & trabzonspor + 1) = ComboBox9
ts.Range("F" & trabzonspor + 1) = Val(TextBox15)
ts.Range("A3") = 1
ts.Range("A3:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Unload Me ' Formu yenile
UserForm2.Show
End Sub
Genişletmek için tıkla ...


TextBox14_Exit olayında bir kod yok. TextBox14_MouseDown olayını kastediyorsanız onu tıklandığında bugünün tarihini atsın diye yazdım.

Kaydet butonu ile ilgili sorunum değiştirmek veya silmek değil o işlemler için diğer ilgili butonları kullanıyorum ve çalışıyor...

Kaydet butonu için sizin yazdığınız kodun sorunu şu, Giderler sekmesinin 3. satırı hariç sonraki satırlarda düzgün çalışıyor ama ilk satıra (3.satıra) sadece tarihi atıyor boxlardaki diğer bilgileri yazmıyor.
 
CILEKESH' Alıntı:
TextBox14_Exit olayında bir kod yok. TextBox14_MouseDown olayını kastediyorsanız onu tıklandığında bugünün tarihini atsın diye yazdım.

Kaydet butonu ile ilgili sorunum değiştirmek veya silmek değil o işlemler için diğer ilgili butonları kullanıyorum ve çalışıyor...

Kaydet butonu için sizin yazdığınız kodun sorunu şu, Giderler sekmesinin 3. satırı hariç sonraki satırlarda düzgün çalışıyor ama ilk satıra (3.satıra) sadece tarihi atıyor boxlardaki diğer bilgileri yazmıyor.
Genişletmek için tıkla ...


İhsan bey, Sorun çözüldü, Sizin Kod doğru. Ben Listbox yenilemesinde hatalı bir kod yazmışım. Düzelttim. İlginiz için tekrar teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst