Combobox dan 2. seçtiğim veriyi 2. satıra yazdırma

[bilisim2010]

merhaba combobox1 e çektiğim 5 tane kod var ilk kodu seçip buton ile exceldeki c2 hücresine yazdırsın combodaki 2. kodu seçtiğimde buton ile c3 e yazdırsın sonra c4 sonra c5
aynı zamanda textbox1 ve textbox2 deki verileride a2 b2 yazdırsın ve bir satır aşağı insin bunların hepsini sadece 1 tane buton yapsın. a2 b2 c2 aynı anda 1 satır aşağı insin verileri gireyim butona basayım bir alta geçsin boşalsın hepsinin içi. tekrar verileri gireyim butona basayım bir alta insin hocam

combobox a çektiğim veri e2 sütununda. saygılar

 

[md3m1ray]

merhaba
bu şekilde mi dener misiniz

İndir bilisim2010deneme xlsm

Dosyayı indir bilisim2010deneme xlsm

dosya.co

 

[bilisim2010]

merhaba
bu şekilde mi dener misiniz

İndir bilisim2010deneme xlsm

Dosyayı indir bilisim2010deneme xlsm

dosya.co

Merhaba hocam evet aynen bu şekilde. ama son yazdığım ilk satıra çıkıyor ilk yazılanın altına çıksa iyi olurdu tam tersi birşey oluyor böyle

 

[md3m1ray]

'a2 b2 c2 aynı anda 1 satır aşağı insin'

dediğinizden kastınız o sanmıştım düzelteyim

 

[md3m1ray]

dener misiniz

İndir bilisim2010deneme xlsm

Dosyayı indir bilisim2010deneme xlsm

dosya.co

 

[bilisim2010]

dener misiniz

İndir bilisim2010deneme xlsm

Dosyayı indir bilisim2010deneme xlsm

dosya.co

hocam tamamdır çok teşekkür ederim allah razı olsun bu verileri buton ile değilde enter tuşuyla hücreye göndermek için ne eklemeliyim?

 

[md3m1ray]

kodun üstüne bunu ekleyin :

form da en son combobox dolduracaksanız bu şekilde eğer textbox1 ya da 2 ise koddaki ComboBox1_Keydown i ona göre değişin

Private Sub ComboBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
             CommandButton1_Click
        End If
End Sub

 

[bilisim2010]

kodun üstüne bunu ekleyin :

form da en son combobox dolduracaksanız bu şekilde eğer textbox1 ya da 2 ise koddaki ComboBox1_Keydown i ona göre değişin

Private Sub ComboBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
             CommandButton1_Click
        End If
End Sub

olmadı hocam ben commandbutton değil label1 kullanıyorum aktarma için acaba ondanmı olmadı

 

[md3m1ray]

böyle deneyin o zaman ama dosyanızı bilmediğim için bu örnek kod kendinize göre uyarlamlısınız isimleri vs.

Private Sub ComboBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
            Dim ws As Worksheet
            Dim comboSelection As String
            Dim textbox1Value As String
            Dim textbox2Value As String
            Dim nextRow As Long
       
            Set ws = ThisWorkbook.Sheets("Sayfa1")
       
            comboSelection = ComboBox1.Value
            textbox1Value = TextBox1.Value
            textbox2Value = TextBox2.Value
            nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
       
            ws.Cells(nextRow, "A").Value = textbox1Value
            ws.Cells(nextRow, "B").Value = textbox2Value
            ws.Cells(nextRow, "C").Value = comboSelection
       
            ComboBox1.Value = ""
            TextBox1.Value = ""
            TextBox2.Value = ""
       
            MsgBox "Veriler başarıyla eklendi.", vbInformation
        End If
End Sub

 

[bilisim2010]

böyle deneyin o zaman ama dosyanızı bilmediğim için bu örnek kod kendinize göre uyarlamlısınız isimleri vs.

Private Sub ComboBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
            Dim ws As Worksheet
            Dim comboSelection As String
            Dim textbox1Value As String
            Dim textbox2Value As String
            Dim nextRow As Long
      
            Set ws = ThisWorkbook.Sheets("Sayfa1")
      
            comboSelection = ComboBox1.Value
            textbox1Value = TextBox1.Value
            textbox2Value = TextBox2.Value
            nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
      
            ws.Cells(nextRow, "A").Value = textbox1Value
            ws.Cells(nextRow, "B").Value = textbox2Value
            ws.Cells(nextRow, "C").Value = comboSelection
      
            ComboBox1.Value = ""
            TextBox1.Value = ""
            TextBox2.Value = ""
      
            MsgBox "Veriler başarıyla eklendi.", vbInformation
        End If
End Sub

****** abi sana 100 bin yıldız veriyorum harikasın çok teşekkür ederim

 

[md3m1ray]

ben teşekkür ederim yardımcı olabildigime sevindim iyi calismalar

 

[bilisim2010]

ben teşekkür ederim yardımcı olabildigime sevindim iyi calismalar

hocam size bir sorum daha olucak kusura bakmayın konu açamadım aceleye geldi biraz. ben userforma excel wisible false iken veri çektirmek istiyorum textbox sayfa seçerken hangi kodu girmeli aynı şekilde listbox initialize hangi kodu girmeliyim?

Private Sub Label2_Click()
ThisWorkbook.Sheets("PZ80H1YSERİ").Range("A1") = Texbox1
Unload Me
UserForm6.Show
End Sub
bunu deniyorum seçmiyor bu textboxlar için

With UserForm7.ListBox1
.ColumnHeads = False
.ColumnWidths = "30;60;50;110;60"
.ColumnCount = 6
.AddItem
.List(.ListCount - 1, 0) = "ADET"
.List(.ListCount - 1, 1) = "BARKOD NO"
.List(.ListCount - 1, 2) = "PALET NO"
.List(.ListCount - 1, 3) = "Müşteri Adı"
.List(.ListCount - 1, 4) = "Stok Kodu"
.List(.ListCount - 1, 5) = "Ürün Adı"
End With
ss = pz80.Range("A150000").End(xlUp).Row
ListBox1.RowSource = "PZ80H1YSERİ!A1:g96" & ss
TextBox1.Value = Sheets("PZ80H1YSERİ").Range("D2").Value
TextBox2.Value = Sheets("PZ80H1YSERİ").Range("C2").Value
TextBox3.Value = Sheets("PZ80H1YSERİ").Range("B2").Value
TextBox4.Value = Sheets("PZ80H1YSERİ").Range("F2").Value
TextBox7.Value = Sheets("PZ80H1YSERİ").Range("e2").Value

End Sub

buda listbox

 

[md3m1ray]

özel bilgileri içeren satırları silip burdan veya özelden örnek dosya atabilir misiniz daha kolay olacak olayı anlamak

 

[bilisim2010]

özel bilgileri içeren satırları silip burdan veya özelden örnek dosya atabilir misiniz daha kolay olacak olayı anlamak

hocam bu sorunu çözdüm de size şunu soracağım b2 hücresindeki veriyi textboxda canlı kanlı gösterme formülü ne acaba yani b2 ye ne yazsam aynı anda textboxda çıksın sonra textboxdayken entere basayım sayfa b3 hücresine insin

 

[md3m1ray]

textbox linkedcell özelliğini B2 olarak tanımlayın B2 ye yazdıkalrınız texboxta görünür

textboxdayken entere basınca b3 hücresine gitme için dener misin

Private Sub TextBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
            ActiveSheet.Range("B3").Select
        End If
End Sub

 

[bilisim2010]

textbox linkedcell özelliğini B2 olarak tanımlayın B2 ye yazdıkalrınız texboxta görünür

textboxdayken entere basınca b3 hücresine gitme için dener misin

Private Sub TextBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
            ActiveSheet.Range("B3").Select
        End If
End Sub

hocam userformdaki textboxda linkedcell özelliği yokki

 

[md3m1ray]

kanlı canlı görmekten kastınız userform acıldığında textbox a b2 deki veri gelsin ise

Private Sub Userform_initialize() kodlarının arasına

TextBox1.Value = Range("B2")
ekleyin