Userformda yardım istiyorum

[Hacı Bayram ÖZKAN]

Arkadaşlar örnek dosya ekledim, isteğimi bu dosyada belirttim, bir dosya üzerindde bulunan personeller isteğe göre çağırıp, kişiye göre verilecek olan miktarı ilgili haneye kayıt etmek istiyorum. Hayırlı ramazanlar.

 

[leumruk]

Merhaba,
Aşağıdaki kodları userformunuzun kod bölümüne kopyalayın.

Dim sira As String

Private Sub ComboBox1_Change()
sira = ComboBox1.ListIndex + 2
TextBox1 = Cells(sira, "e")
TextBox2 = Cells(sira, "d")
End Sub

Private Sub CommandButton3_Click()
Cells(sira, "bb") = TextBox3
MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
End Sub

Private Sub UserForm_Initialize()
For x = 2 To [c65536].End(3).Row
ComboBox1.AddItem Cells(x, "c")
Next
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz ve kendinize göre uyarlayınız.

Private Sub ComboBox1_Change()
    Dim c As Range
    Dim s As Worksheet
    Set s = Sheets("Sayfa1")
    
    Set c = s.Range("C:C").Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then Exit Sub
    TextBox1.Value = s.Cells(c.Row, "E")
    TextBox2.Value = s.Cells(c.Row, "D")
    TextBox3.Value = s.Cells(c.Row, "N")
End Sub

Private Sub CommandButton3_Click()
    Dim c As Range
    Dim s As Worksheet
    Set s = Sheets("Sayfa1")
    
    Set c = s.Range("C:C").Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then Exit Sub
    s.Cells(c.Row, "E") = TextBox1.Value
    s.Cells(c.Row, "D") = TextBox2.Value
    s.Cells(c.Row, "N") = TextBox3.Value
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    ComboBox1.Value = ""
    
    MsgBox "Kayıt Tamamdır...."
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
Dim s As Worksheet
Set s = Sheets("Sayfa1")
For i = 2 To s.[C65536].End(3).Row
    ComboBox1.AddItem s.Cells(i, "C")
Next i
End Sub

 

[Hacı Bayram ÖZKAN]

Necdet bey tamam olmuş ancak; miktar bölümüne bel rakımı elle (manuel) gireceğim, gireceğim bu değeri personelin BB sütunda karşılık gelen yere yazmasını istiyorum, bu durumda yazmıyor, miktar bölümü otomatik olarak N sütunundaki değeri alıyor, oysaki Miktar bölümüne ben değer girip bunu personelin BB Sütununa karşılık gelen yere kayıt etmesini istiyorum, Örneğin Mehmet AK seçildiğinde Miktar bölümüne 20 yazdığımda bu değeri Mehmet AK'ın BB sütununda karşılık gelen yer olan BB2 hücresine yazmasını istiyorum, teşekkürler.

 

[Hacı Bayram ÖZKAN]

leumruk bey sizin kodunuz çalıştı ancak metin olarak atıyor buda alt toplamda toplama işlemini yapmıyor, buraya sayı olarak atmasını sağlarmısınız. Teşekkürler

 

[leumruk]

leumruk bey sizin kodunuz çalıştı ancak metin olarak atıyor buda alt toplamda toplama işlemini yapmıyor, buraya sayı olarak atmasını sağlarmısınız. Teşekkürler

Merhaba,
Aşağıdaki gibi deneyin.

Dim sira As String

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
sira = ComboBox1.ListIndex + 2
TextBox1 = Cells(sira, "e")
TextBox2 = Cells(sira, "d")
End Sub

Private Sub CommandButton3_Click()
If IsNumeric(TextBox3) = False Then
MsgBox "Sayısal bir değer girmelisiniz.", vbCritical, "UYARI"
ComboBox1 = ""
Exit Sub: End If
Cells(sira, "bb").NumberFormat = "0"
Cells(sira, "bb") = CDbl(TextBox3)
MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
End Sub

Private Sub UserForm_Initialize()
For x = 2 To [c65536].End(3).Row
ComboBox1.AddItem Cells(x, "c")
Next
End Sub

Eğer küsüratlı rakam girecekseniz

Cells(sira, "bb").NumberFormat = "0"

bu satırı aşağıdakiyle değiştirin

Cells(sira, "bb").NumberFormat = "0.00"

 

[Hacı Bayram ÖZKAN]

teşekkürler abi

 

[Necdet]

Necdet bey tamam olmuş ancak; miktar bölümüne bel rakımı elle (manuel) gireceğim, gireceğim bu değeri personelin BB sütunda karşılık gelen yere yazmasını istiyorum, bu durumda yazmıyor, miktar bölümü otomatik olarak N sütunundaki değeri alıyor, oysaki Miktar bölümüne ben değer girip bunu personelin BB Sütununa karşılık gelen yere kayıt etmesini istiyorum, Örneğin Mehmet AK seçildiğinde Miktar bölümüne 20 yazdığımda bu değeri Mehmet AK'ın BB sütununda karşılık gelen yer olan BB2 hücresine yazmasını istiyorum, teşekkürler.

Hızlıca okuyunca yanlış sütuna yani N sütununa aktarmışım siz kodlarda N sütünu yerine BB sütunu olarak değiştirseydiniz bu kadar yazı yazmak zorunda kalmazdınız