Sayfa Kopyalama ve Veri Aktarımı

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

(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

Burayı değiştirin düzelecektir.

DUAYEN...

(09/04/2012, 00:33)DUAYEN yazdı: Burayı değiştirin düzelecektir.

Kod:

ActiveCell.Offset(0, 1).Activate

DUAYEN...

İlginize teşekkürler, elinize emeğinize sağlık

Merhabalar ve iyi haftalar.

Dosyanın en son halini yükleyebilir misiniz?

Emek ve katkılar için teşekkürler.

sorunun çözüldüğüne sevindim.