Skip to main content

AccessTr.neT


Sayfa Kopyalama ve Veri Aktarımı

Sayfa Kopyalama ve Veri Aktarımı

Çözüldü #14
(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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sayfa Kopyalama ve Veri Aktarımı - Yazar: drummers - 08/04/2012, 00:30
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 01:54
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 02:42
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 12:44
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 22:00
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 23:29
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: drummers - 08/04/2012, 23:44
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 00:33
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 10:35
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 12:31
Task