(08/04/2012, 23:29)DUAYEN yazdı: Bu gönderdiğim kodu CommandButton1 en üstüne yazarsanız istediğiniz şekilde olacaktır.
If TextBox1.Value <> "" Then
Sheets("Ana Sayfa").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & "Bu isimli Firma kayıtlı" & " Yinede kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
End If
İyi çalışmalar....
DUAYEN
Bu kod hem "A" hem "B" hücrelerine Textbox1 deki veriyi yazıyor yalnız. Sadece "B" hücresine yazabilirmi
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#13
