Seçilen aylara veri aktarma yardım

[colramazan]

Merhabalar. Ekte eklemiş olduğum maaş dosyasında butona bastığımda bordro sayfasındaki sol üste hangi ay varsa gelir V. sayfasındaki ilgili aya aylık matrahı aktarmayı başaramadım yardımcı olabilir misiniz. Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
Kod'daki "*" kısmı, GELİR V. sayfasındaki ay adlarının sonundaki BOŞLUK karakteri nedeniyle eklendi.
(OCAK ayının sonunda BOŞLUK var)
.

[FONT="Arial Narrow"]Set bo = Sheets("BORDRO"): Set gv = Sheets("GELİR V.")
gv.Cells(WorksheetFunction.Match(bo.[A4] & [COLOR="Red"][B]"*"[/B][/COLOR], gv.Range("A1:A13"), 0), 2) = bo.[S7][/FONT]

 

[Orion1]

Merhabalar. Ekte eklemiş olduğum maaş dosyasında butona bastığımda bordro sayfasındaki sol üste hangi ay varsa gelir V. sayfasındaki ilgili aya aylık matrahı aktarmayı başaramadım yardımcı olabilir misiniz. Teşekkürler.

Gelir v. sayfasında OCAK ayının bulunduğu (B2) hücresinde OCAK yazısının sonunda bir boşluk var.Onu silin.
Buyurun.

Sub AKTAR()
Dim k As Range, sh As Worksheet
Set sh = Sheets("GELİR V.")
Set k = sh.Range("A2:A13").Find(Range("A4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, 1).Value = Range("S7").Value
End If
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[colramazan]

Sayın Ömer BARAN ve sayın Orion1 çok teşekkür ederim. iki kodda işimi görüyor.çok mutlu oldum.sağlıcakla kalın.