İstenen verinin bulunması

[makam61]

Private Sub CommandButton3_Click()
Set BUL = [C4:C500].Find(Val(TextBox10), LookAt:=xlWhole)
If Not BUL Is Nothing Then
Cells(BUL.Row, 256).End(1).Column 1
Cells(BUL) = TextBox12
End If
End Sub

bu kodu çalıştırmamadım yapmak istediğim teztbox10 yazdığım sayısyı a:a sutununda bulmak ve bulunan satırdaki en son boş sutuna yeni bir veri girmek ..

 

[makam61]

lütfen yardım

 

[zafer]

Merhaba

Private Sub CommandButton3_Click()
 
        For Each hucre In Range("a1:A" & WorksheetFunction.CountA(Range("a1:a65000")))
 
        If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox10.Value, vbUpperCase) Then
 
        hucre.Select
        sat = ActiveCell.Row
        sut = Cells(sat, 256).End(1).Column + 1
        Cells(sat, sut) = TextBox12.Value
        End If
next
End Sub

Private Sub CommandButton3_Click()
ara = Val(TextBox10.Value)
Set bul = Range("a1:a65000").Find(ara)
If bul = ara Then
sat = bul.Row
sut = Cells(sat, 256).End(1).Column + 1
        Cells(sat, sut) = TextBox12.Value
        End If
End Sub

 

[makam61]

teşekürler

 

[makam61]

aranan kayıt yoksa uyarı vermesini istiyorum onu ekledim ama hata veriyor yardmcı olursanız sevinirim..
Private Sub CommandButton4_Click()
ara = Val(TextBox18.Value)
Set bul = Range("c3:c65000").Find(ara)
If bul = ara Then
sat = bul.Row
sut = Cells(sat, 256).End(1).Column + 1
Cells(sat, sut) = TextBox16.Value
Exit Sub: End If
MsgBox "Aranan kayıt Bulunamadı", vbInformation
End Sub

 

[zafer]

Merhaba

Private Sub CommandButton2_Click()
On Error GoTo 10
ara = Val(TextBox18.Value)
Set bul = Range("a1:a65000").Find(ara)
If bul = ara Then
sat = bul.Row
sut = Cells(sat, 256).End(1).Column + 1
        Cells(sat, sut) = TextBox16.Value
        End If
        Exit Sub
10:
        MsgBox "xxxxxxxxxxxxxxxxxxxxxx"
End Sub