Çözüldü combobox dan seçili olan sayfaya veri ekleme sorunu

Discreum · 11 Ocak 2023

Private Sub CommandButton2_Click()

On Error Resume Next
Dim sh As Worksheet
If ComboBox1.Value(i) Then
Set sh = ThisWorkbook.Sheets(ComboBox1.Value(i))
Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("I:I"))

sh.Range("I" & Last_Row + 1).Value = "=IF(J" & Last_Row + 1 & "="""","""",ROW()-1)"
sh.Range("J" & Last_Row + 1).Value = Me.TextBox1.Value
sh.Range("K" & Last_Row + 1).Value = Me.TextBox2.Value
sh.Range("L" & Last_Row + 1).Value = Me.TextBox3.Value
sh.Range("M" & Last_Row + 1).Value = Me.TextBox4.Value
sh.Range("N" & Last_Row + 1).Value = Me.TextBox5.Value
sh.Range("O" & Last_Row + 1).Value = Now
End If

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""

Call Refresh_Data
End Sub

kodlama bu şekilde textboxlara veriyi girip ekle diyiromu herhangi bir hatada almıyorum ancak veri girişide olmuyor

Caylak · 11 Ocak 2023

If ComboBox1.Value(i) Then
burada hata var, eğer şartını sunuyorsunuz ama i değeri olmadığı için direkt olarak end if satırına gidiyor.
textboxları temizleyip yordamı bitiriyor.
if combobox1.value<>"" then
Set sh = ThisWorkbook.Sheets(Combobox1.text)
olarak deneyin

Discreum · 11 Ocak 2023

if combobox1.value<>"" then
Set sh = ThisWorkbook.Sheets(Combobox1.text)
hocam teşekkür ederim bu şekilde gayet stabil çalışıyor

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü combobox dan seçili olan sayfaya veri ekleme sorunu

Discreum

Caylak

Discreum

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol