Bul kopyala yapıştır

[vivident]

Merhaba

A3 hücresindeki değeri C6,D6,E6,F6,.... sutunlarında arayıp bulacak ve B8:B11 hücresindeki değerleri, bulduğu sutunun altına altına veya (iki satırın altına) kopyalacak

Aşağıda kodda nasıl değişiklik yapmam gerekiyor
Sürekli C sutunun altına kopyalıyor.

Range("C" & STR).PasteSpecial (xlPasteValues)
bu kodu sutun olarak nasıl değiştirebilirm

Option Explicit
Sub bul_aktar()
Dim STR As Long
With WorksheetFunction
STR = .Match(Range("A3"), _
Range("C6:G6"), 0) + 7
Range("B8:B11").Copy
Range("C" & STR).PasteSpecial (xlPasteValues)
End With
Application.CutCopyMode = False
End Sub

 

[vivident]

Arkadaşlar verileri nasıl hedef sutuna yapıştırabilirim. Lütfen bi yardım edin

 

[apocalyt]

şunu deneyin..

Sub bul_aktar()
Dim STR As Long, ben As Long
With WorksheetFunction
STR = .Match(Range("A3"), _
Range("C6:G6"), 0) + 2
ben = Cells(59, STR).End(3).Row
Range("B8:B11").Copy
Cells(ben + 1, STR).PasteSpecial (xlPasteValues)
End With
Application.CutCopyMode = False
End Sub