Kopyalama

[pelin5353]

Merhaba,

Sayfada da aciklamasi var. Sadece secili hucreyi DEF sayfasina gondermesi gerekiyor.. ben ayarladim gonderiyor. ama hep ust uste atiyor.

2. si NEW entry tusuna basinca cikan userform da girillen bilgilerin sayfaya aktarimi nasil olacak .. Yardimci olabilirseniz cok sevinirim...

 

[Seyit Tiken]

İstenilen hücreye çift tıklayarak 1.sayfadan 2.sayfa veri aktarır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[Sayfa2].[A65000].End(3).Offset(1, 0) = ActiveCell
End Sub

Düğmeye basarak veri aktarma.

Sub Düğme2_Tıklat()
[Sayfa2].[A65000].End(3).Offset(1, 0) = ActiveCell
End Sub

 

[pelin5353]

Yardiminiz icin tesekkurler. ama bu sadece secili hucreyi A sutununa gonderiyor. ben tum satirin gitmesini istiyorum..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Aktarmak istediğiniz satırları seçerek kodu çalıştırmalısınız.

Private Sub CommandButton3_Click()
    Set S2 = Sheets("DEF")
    Selection.Rows.Copy S2.Cells(S2.[A65536].End(3).Row + 1, "A")
End Sub

 

[pelin5353]

Cost Control Tesekkurler. Bu formul calisti. Oldukcada isime yarayacak. Peki kopyalanan satırın otomatik olarak silinmesi icin nasil bir macro lazim?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SEÇİLEN_SATIRI_SİL()
    Selection.Rows.Delete Shift:=xlUp
End Sub