userform da bul butonu

[86126]

arkadaşlar dosyam büyük olduğu için buraya koymadım. A sutunundan IQ sutununa kadar verilerim mevcut. veri başlıkları 5. satırda.
veri girişi için userform yaptım bul menüsü ekledim ancak. b sutununa endeksli. ve comboboxa bağlı çalışıyor. bazı verileri buluyor ve listeliyor bazılarını bulamıyor. bul makrosu doğrumu değilmi.
Private Sub CommandButton3_Click()
For Each hucre In Range("b2:b" & WorksheetFunction.CountA(Range("b2:b65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
hucre.Select
TextBox1 = ActiveCell.Offset(0, -1).Value
TextBox3 = ActiveCell.Offset(0, 1).Value
ComboBox4 = ActiveCell.Offset(0, 2).Value
TextBox5 = ActiveCell.Offset(0, 3).Value
ComboBox3 = ActiveCell.Offset(0, 4).Value
TextBox7 = ActiveCell.Offset(0, 5).Value
TextBox8 = ActiveCell.Offset(0, 6).Value
TextBox9 = ActiveCell.Offset(0, 7).Value
....................... şeklinde devam ediyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton3_Click()
sat=combobox2.listindex+6
TextBox1 = cells(sat,"a")
TextBox3 = cells(sat,"c")
ComboBox4 = cells(sat,"d")
TextBox5 = cells(sat,"e")
ComboBox3 = cells(sat,"f")
TextBox7 = cells(sat,"g")
TextBox8 = cells(sat,"h")
TextBox9 = cells(sat,"I")
.
.
.

 

[86126]

arkadaşım eline ve beynine sağlık. çok teşekkür ederim.

 

[86126]

bu kez değiştir butonu çalışmadı. seçili hücre hangisi ise o hücreden itibaren değişitiriyor. değiştirin makrosu ise

Private Sub CommandButton4_Click()
ActiveCell.Offset(0, -1).Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox3.Value
ActiveCell.Offset(0, 2).Value = ComboBox4.Value
ActiveCell.Offset(0, 3).Value = TextBox5.Value
ActiveCell.Offset(0, 4).Value = ComboBox3.Value
ActiveCell.Offset(0, 5).Value = TextBox7.Value
ActiveCell.Offset(0, 6).Value = TextBox8.Value
ActiveCell.Offset(0, 7).Value = TextBox9.Value
ActiveCell.Offset(0, 9).Value = TextBox10.Value
ActiveCell.Offset(0, 10).Value = TextBox11.Value
.......... devam ediyor.

 

[Levent Menteşoğlu]

Mantık aynı, yukarıda verdiğim koddaki eşitliğin iki yanını yer değiştirin.

 

[86126]

zahmet olmazsa tek örnek verebilirmisin

 

[Levent Menteşoğlu]

sat=combobox2.listindex+6
cells(sat,"a")=textbox1
.
.
.

 

[86126]

çok teşekkür ederim.

 

[86126]

hocam kusuruma bakma. benim userformumda sil butonum vardı. Bulduğu satırı silmesi gerekiyor. Onu nasıl yapacağım. makrosu


Private Sub CommandButton5_Click()
satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp
'say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To WorksheetFunction.CountA(Range("a2:a65000"))

Cells(i + 1, 1) = i
Next
End Sub

 

[Levent Menteşoğlu]

Bu şekilde sonuca ulaşmak zor dosyanızı eklerseniz onun üzerinden gidelim.

 

[86126]

deneme dosyam ektedir. Yukardaki yeni verdiğin kodlamaya göre sadece bul verilere göre sil butonuna makro eklenecek. ilgin için teşekkürler.

 

[86126]

Levent kardeş yardımınızı bekliyorum. Tüm örnekleri denedim ama olmadı bul ve değiştir butonundaki kodları sizin verdiğiniz formata çevirdiğimden satır actif olmuyor. bu nedenlede silme işlemi olmuyor. Yardımınızı bekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton5_Click()
satır = ComboBox2.ListIndex + 6
Rows(satır).Delete
For i = 1 To Range("a65000").End(3).Row
Cells(i + 5, 1) = i
Next
End Sub

 

[86126]

sil butonuna macroyu uyguladım ancak a sutunundaki bütün tarihler otomatik değişti.

 

[Levent Menteşoğlu]

A sütununda sıra no olduğunu düşünmüştüm. Bu durumda aşağıdaki gibi deneyin.

[LEFT]Private Sub CommandButton5_Click()
satır = ComboBox2.ListIndex + 6
Rows(satır).Delete
End Sub[/LEFT]

 

[86126]

harikasın levent kardeş ellerine ve beynine sağlık. çok teşekkür ederim