aktarma makrosu

[abuitun]

iyi geceler,
c sütunundaki (c9:c59 arasında verilen değerler ayları ifade etmektedir)
c20 sütünunda mayısta 2 haziranda 2 temmuzda 3 kez işlem yapılmış ve bu işleme karşılık 0,2 birim kullanılmış)
yapmak istediğim c stununda aylara göre yapılan işlemere karşılk
gelen e (e9:e59 arası)
sutunudaki değerleri toplayarak iş gücü sayfasına aktarsın

 

[veyselemre]

Kodları bir modüle kopyalayın, aktar makrosunu çalıştırın.

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("işgücü")
s2.[b5:n5].ClearContents
s1.Select
For Each huc In [c9:c59].Cells
    huc.Select
    If huc.Value <> "" Then Call gonder(huc.Value, huc.Offset(0, 2))
Next huc
s2.Select
End Sub
Sub gonder(aylar, deger)
    Set s2 = Sheets("işgücü")
    a = Split(aylar, ",")
    For Each ay In a
        If ay <> "" Then s2.Cells(5, ay + 1) = s2.Cells(5, ay + 1) + Val(deger)
    Next ay
End Sub

 

[abuitun]

aktar makrosu

sayın veyselemre,
uğraşınız için teşekkürler.
modüle kopyaladım ama değerler 0 veriyor

 

[abuitun]

makro aktar

sayın veyselemre,
e sütun değerleri tam sayı olduğunda doğru sonuç veriyor ancak ondalıklı olduğunda 0 veriyor.

 

[hikmet]

sn.abitun sayfanızdaki virgül ve nokta ayraçlarını değiştirin kesirli haneleri almamasının sebebi ondandır. makro normal çalışıyor. noktadan snraki değerli alıyor.

 

[abuitun]

aktar makrosu

Sayın Hikmet,

virgül ve nokta ayraçlarını değiştirin diyorsunuz. bunu biraz daha açabilirmisiniz.
teşekkürler

 

[Hakan ERDOST]

Araçlar/seçenekler/Uluslararası sistem ayarlarını kullan seçeneğini kaldırıp istenen şekilde değişklik yapabilrisiniz.

 

[abuitun]

makro aktar

Sayın hexadesimal,
sorum zannedersem yanlış anlaşıldı.c sütınundaki değerler ayları göstetriyor ancak e sütunundaki değerler matatamatiksel değerdir.
ilginize teşekkürler.