hucrelere veri aktarma

[ozkovlu]

Merhabalar,
Ekli dosyada, F sütunundaki değerleri sağ tarafta bulunan tabloya hakediş sırasına gore nasıl aktarabilirim.


http://s8.dosya.tc/server3/nf9h5d/Kitap2.xlsx.html

SAYGILARIMLA...

 

[Korhan Ayhan]

Deneyin.

Sub Hakediş_Aktar()
    For X = 11 To 22
        If Cells(4, X) = Range("F3") Then
            Range(Cells(5, X), Cells(35, X)).Value = Range("F5:F35").Value
            Exit For
        End If
    Next

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[vardar07]

Korhan Bey in eline sağlık kısa ve öz halletmiş. Bende sıfırları gözetmesin diye bir şeyler karalamıştım. Alternatif olsun.

Sub aktar()
Set sh = Sheets("YesilDefter")
veri = sh.Cells(3, "F")
bul = WorksheetFunction.Match(veri, sh.Range("K4:V4"), 0) + 10
For i = 5 To 35
If Cells(i, "F") > 0 Then
sh.Cells(i, bul) = sh.Cells(i, "F")
End If
Next i
MsgBox "Aktarıldı", vbInformation
End Sub

 

[ozkovlu]

Merhabalar Korhan Ayhan ve vardar07;
İlginiz için Teşekkür ederim.
Ekli linkte yine benzer bir örnek daha var yardımcı olursanız iyi olur.
Saygılarımla..

http://s6.dosya.tc/server8/oiskpl/gonder.zip.html

 

[ozkovlu]

Bu kodla hallettim.

Sub KDV_Kesinti_Aktar()
    For x = 10 To 23
        If Cells(x, 58) = Range("AW2") Then
            Range(Cells(x, 59), Cells(x, 59)).Value = Range("AF12").Value
            Range(Cells(x, 60), Cells(x, 60)).Value = Range("AF25").Value
            Exit For
        End If
    Next

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub