Transfer

[lev_sez]

Bir sayfada doldurduğum bilgilerin diğer sayfada istediğim yerlere aktarılmasını nasıl yapabilirim. Örnek olarak bi dosya oluşturdum. Bilgileri aktar kısmına tıkladığımda ilgili hücrelerin LEVENT SEZEN sayfasındaki listede listelenmesini nasıl yapa bilirim? Bu liste her yeni eklendiğinde ard arda devam etmeli.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

Option Explicit
 
Sub Temizle()
    Sheets("ANA SAYFA").Range("H6:H17").ClearContents
End Sub
 
Sub Bilgileri_Aktar()
    Dim Satır As Long
    Application.ScreenUpdating = False
    Satır = Sheets("LEVENT SEZEN").Range("B65536").End(3).Row
    If Satır = 1 Then
    Satır = 3
    Else
    Satır = Satır + 1
    End If
    Sheets("LEVENT SEZEN").Range("B" & Satır) = "Levent SEZEN"
    Sheets("ANA SAYFA").Range("H6:H13").Copy
    Sheets("LEVENT SEZEN").Range("D" & Satır).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("ANA SAYFA").Range("H16:H17").Copy
    Sheets("LEVENT SEZEN").Range("L" & Satır).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("ANA SAYFA").Range("H14:H15").Copy
    Sheets("LEVENT SEZEN").Range("N" & Satır).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    Temizle
    Application.ScreenUpdating = True
    MsgBox "Bilgiler aktarılmıştır.", vbInformation
End Sub

 

[lev_sez]

çalışmadı. acaba ben ingilizce versiyon kullanıyorum diyemidir.?

eğer sizde dosya kayıtlı ise bu şekilde koyarsanız buraya çok memnun olurum

 

[lev_sez]

teşekkür ederim çalıştırdım