Değeri ara bul, Bulunan hücrenin yanına bir başka değeri yapıştır

[vivident]

Merhaba

Formüllerle gayet iyi çalışıyorum. Ama iş makro yazmaya gelince orada kalıyorum. Bir türlü beceremiyorum. Ekte bi dosyam var. Ara bul kopyala yapıştır tarzı bi olay. Yardımcı olursanız memnun olurum

Butona tıklandığında A3'te yazan ilgili haftayı A8:A59 Satırlarında bulacak. Bulduktan sonra B4:J4 hücresinde yazan değerleri ilgili haftanın (bulduğu haftanın) yanındaki sutunlara taşıyacak

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub bul_aktar()
Dim STR As Long
With WorksheetFunction
STR = .Match(Replace(Range("A3"), "H", "") * 1, _
Range("A8:A59"), 0) + 7
Range("B4:J4").Copy 
Range("B" & STR).pastespecial(xlpastevalues)
End With
End Sub

 

[vivident]

Eline sağlık hocam, süper olmuş. Sadece değerleri kopyalasın.

Çizgileri felan kopyalamadan yapmasını için makroya "Selection.PasteSpecial Paste:=xlPasteValues" yazmam gerekiyor sanırım dimi

 

[asi_kral]

Eline sağlık hocam, süper olmuş. Sadece değerleri kopyalasın.

Çizgileri felan kopyalamadan yapmasını için makroya "Selection.PasteSpecial Paste:=xlPasteValues" yazmam gerekiyor sanırım dimi

Kodu güncelledim.

 

[vivident]

Yardımlarınız için çook teşekkürler, sağolun

 

[asi_kral]

Yardımlarınız için çook teşekkürler, sağolun

Kolay Gelsin.

 

[vivident]

Hocam bi problemim daha var
A3 hücresine H1-H2.... yerine Mart-Nisan gibi değerler yazdığımda alttaki satırlarda da mart nisan gibi değişiklikler yaptığımda, aramada problem oluyor

Sanırım rakam ile harfi birbirinden ayırıyor ve rakamı bulamaya çalışıyor. A3 hücresinde ne varsa aldıramazmıyız. Rakamsa rakam, text ise text gibi
STR = .Match(Replace(Range("A3"), "H", "") * 1, _

 

[asi_kral]

Hocam bi problemim daha var
A3 hücresine H1-H2.... yerine Mart-Nisan gibi değerler yazdığımda alttaki satırlarda da mart nisan gibi değişiklikler yaptığımda, aramada problem oluyor

Sanırım rakam ile harfi birbirinden ayırıyor ve rakamı bulamaya çalışıyor. A3 hücresinde ne varsa aldıramazmıyız. Rakamsa rakam, text ise text gibi
STR = .Match(Replace(Range("A3"), "H", "") * 1, _

Siz A8:A59 aralığında özel hücre biçilendir yapmıştınız ondan dolayı tanımıyordu. Hücrede rakam var gibi görünüyordu. Oysa arama yaptığı yer ise metin idi bundan dolayı böyle bir çözüme gittim.

Çözüm ise oradaki özel hücre biçimlendirmesini normal'e çevirin ve üstteki kodda kırmızıya boyadığım yere

range("A3")

yazın. Öyle deneyin.

 

[vivident]

Sub bul_aktar()
Dim STR As Long
With WorksheetFunction
STR = .Match(range("A3")_
Range("A8:A59"), 0) + 7
Range("B4:J4").Copy
Range("B" & STR).PasteSpecial (xlPasteValues)
End With
End Sub

Bu şekilde denedim. Hata verdi

 

[apocalyt]

m.batu üstadın yazdığı kodu ben denedim çalışıyo ancak biraz sizin tarafınızdan değişime uğramış..şu satırı STR = .Match(range("A3")_

şu şekilde değiştirin STR = .Match(range("A3"), _
birde End With ile End Sub arasına Application.CutCopyMode = False kodunu yapıştırın..

 

[vivident]

Oldu, elinize sağlık, çok teşekkür ederim