• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri sayfasından Ek11 sayfasına veri aktarma

  • Konbuyu başlatan Konbuyu başlatan yyhy
  • Başlangıç tarihi Başlangıç tarihi
aşağıdaki kodu deneyin...kolay gelsin..

Sub kopyala()
Selection.Rows.Copy
a = WorksheetFunction.CountA(Sheets("EK11").[b:b]) + 1
Sheets("EK11").Cells(a, 2).PasteSpecial
Application.CutCopyMode = False
End Sub
 
İhtiyaca cevap verdi.

Sayın apocalyt ihtiyaca cevap verdi. Elleriniz dert görmesin iyi çalışmalar.
 
Geri
Üst