sütunu diger sayfaya satır olarak aktara bilirmiyim

[slmnkc]

sütunu diger sayfaya satır olarak aktara bilirmiyim

 

[alptun20]

Sub deneme()
Sheets("Sayfa1").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    If ActiveCell.Value = "" Then
    Range("A2").Select
    Else
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Sayfa2").Select
    Range("B1:B10").Select
    Selection.Copy
    Sheets("Sayfa1").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("Sayfa2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
End Sub

Kodu denermisiniz.

 

[slmnkc]

hocam ilginize çokteşekkürederim aktarma güzelde tekrar yazıpeklediğimde öncekisiliniyor benimisteğim silinmesin ve kayıtlı kalsın bunungibi binlercekişi ekleyecem onların bilgileri bana gerekli tc yazınca etiket çıkacak şimdiden çokteşekkürler

 

[alptun20]

Kodu 2. mesajda güncelledim. Kolay gelsin.

 

[slmnkc]

çok teşekkür ederim bilgine sağlık

 

[alptun20]

çok teşekkür ederim bilgine sağlık

Rica ederim, işinize yaramasına sevindim. İyi çalışmalar..