makroyla dikey yapıştırma

[kemalist]

"Y" SAYFASINDA "C5:IR5" ARASINDAKİ VERİLER "F"SAYFASINDA "B4" HÜCRESİNE;"C6:IR6" ARASINDAKİ VERİLER "F"SAYFASINDA "C4" HÜCRESİNE; "C7:IR7" ARASINDAKİ VERİLER "F"SAYFASINDA "D4" HÜCRESİNE; C8:IR8" ARASINDAKİ VERİLER "F"SAYFASINDA "E4" HÜCRESİNE; DİKEY YAPIŞTIRMAK İSTİYORUM.MAKROYLA NASIL YAPABİLİRİZ?
AŞAĞIDAKİ YAPMAYA ÇALIŞTIĞIM KOD ÇALIŞMADI.

İLGİNİZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM. DOSYA EKTEDİR.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Y")Range("C3:IR3").Copy
Sheets("F").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C4:IR4").Copy
Sheets("F").Range("C4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C5:IR5").Copy
Sheets("F").Range("D4").PasteSpecial (xlPasteValuesAndNumberFormats)
Sheets("Y")Range("C6:IR6").Copy
Sheets("F").Range("E4").PasteSpecial (xlPasteValuesAndNumberFormats)
End Sub

 

[usta07]

Sub Makro1()
    Application.ScreenUpdating = False
    Sheets("Y").Select
    Range("C5:IF8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Sheets("Sayfa2").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Ben bu şekilde denedim çalıştı kolay gelsin.

 

[kemalist]

Sub Makro1()
    Application.ScreenUpdating = False
    Sheets("Y").Select
    Range("C5:IF8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Sheets("Sayfa2").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Ben bu şekilde denedim çalıştı kolay gelsin.

bu kod hata veriyor benim isteğim makroyu bir butonla çalıştırmak

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub transpose_59()
Dim liste()
Sheets("F").Select
Range("B3:E65536").ClearContents
liste = Sheets("Y").Range("C5:IR8").Value
Application.ScreenUpdating = False
Range("B3").Resize(UBound(liste, 2), 4) = Application.Transpose(liste)
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[kemalist]

Sayın evren çok teşekkür ederim.uzmanlık böyle bir şey işte.

 

[Orion1]

Sayın evren çok teşekkür ederim.uzmanlık böyle bir şey işte.

Rica ederim.
iyi çalışmalar.

 

[kemalist]

Sub LINK()

Range("B1").Copy
Sheets("F").Range("W4").PasteSpecial (xlPasteLink)

End Sub

bağ yapıştırmak istiyorum yukarıdaki kod hata veriyor sebebini bilen varmı? teşekkürler...

 

[İhsan Tank]

Sub LINK()

Range("B1").Copy
Sheets("F").Range("W4").PasteSpecial (xlPasteLink)

End Sub

bağ yapıştırmak istiyorum yukarıdaki kod hata veriyor sebebini bilen varmı? teşekkürler...

sorunuzu anlamadım ne yapmak istiyorsunuz söylerseniz yardımcı olmaya çalışırım

 

[mancubus]

farklı worksheet zannediyorum.
aşağıdaki gibi deneyin, oluyor mu?

Sub LINK()

Range("B1").Copy
Sheets("F").Activate
Range("W4").Activate
ActiveSheet.Paste Link:=True

End Sub

 

[kemalist]

sorunuzu anlamadım ne yapmak istiyorsunuz söylerseniz yardımcı olmaya çalışırım

A sayfasından F sayfasına makro ile bağ yapıştırmak istiyorum.Teşekkür ederim...

 

[İhsan Tank]

A sayfasından F sayfasına makro ile bağ yapıştırmak istiyorum.Teşekkür ederim...

bağ yapıştır ne demek bunu anlamıyorum.
örnek dosya ekler misiniz şunu istiyorum diye

 

[kemalist]

bağ yapıştır ne demek bunu anlamıyorum.
örnek dosya ekler misiniz şunu istiyorum diye

sayın tank dosya ektedir

 

[İhsan Tank]

sayın tank dosya ektedir

merhaba
bunu dener misin

Sub bağ_yapıştır()
Sheets("F").Range("W:Y").ClearContents
Sheets("A").Select
Range("B2:D67").Select
Selection.Copy
Range("B2").Select
Sheets("F").Select
Range("W4").Select
ActiveSheet.Paste Link:=True
Range("W4").Select
End Sub