+- 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)
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 09/04/2012
(09/04/2012, 07:49)assenucler yazdı: Merhabalar ve iyi haftalar.
Dosyanın en son halini yükleyebilir misiniz?
Emek ve katkılar için teşekkürler.
Yapılması gereken şu kaldı.
- "Ana Sayfa" daki "CommandButton2" tıklandığında eklenen firmalardaki "L3:L14" aralığındaki ay toplamlarını "Ana Sayfa" daki C2:N2 aralığına aktarması
- Birde sayın "DUAYEN" in yazdığı
Kod:
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(0, 1).Activate
Loop
ActiveCell.Value = TextBox1.Value
End IfCvp: Sayfa Kopyalama ve Veri Aktarımı - DUAYEN - 09/04/2012
En son isteğiniiz yeni konu açınız lütfen diğerrine akşam bakarım şuan işdeyim.