Sayfa Kopyalama ve Veri Aktarımı

Sayfa Kopyalama ve Veri Aktarımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfa Kopyalama ve Veri Aktarımı (/konu-sayfa-kopyalama-ve-veri-aktarimi.html)

Sayfalar: 1 2 3 4

Cvp: Sayfa Kopyalama ve Veri Aktarımı - DUAYEN - 08/04/2012

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

Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012

(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

Cvp: Sayfa Kopyalama ve Veri Aktarımı - DUAYEN - 09/04/2012

Burayı değiştirin düzelecektir.

Kod:

ActiveCell.Offset(0, 1).Activate

DUAYEN...

Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 09/04/2012

(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

Cvp: Sayfa Kopyalama ve Veri Aktarımı - assenucler - 09/04/2012

Merhabalar ve iyi haftalar.

Dosyanın en son halini yükleyebilir misiniz?

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

Cvp: Sayfa Kopyalama ve Veri Aktarımı - DUAYEN - 09/04/2012

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