Data Aktarma

[bmutlu966]

Arkadaşlar,
Giriş sayfasından kişilerin masraflarını dataya makro ile aktarmam gerekiyor. Ayrıca aynı kişi için yapılan farklı değerler data sayfasında toplanması gerekiyor.

 

[Orion1]

dosyanız ektedir.

Sub cezalar_59()
Dim sat As Long, k As Range, sh As Worksheet
' coder : evrengizlen@hotmail.com
'date : 25/09/2011
Sheets("GROSS-UP GİRİŞ").Select
If Range("B2").Value = "" Then
    MsgBox "B2 Hücresi boş." & vbLf & "İşlem İptal oldu!!", vbCritical, "U Y A R I"
    Range("B2").Select
    Exit Sub
End If
Set sh = Sheets("GROSS-UP PAYROLL DATA")
sat = sh.Cells(65536, "D").End(xlUp).Row + 1
Set k = sh.Range("D4:D" & sat - 1).Find(Range("B2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then sat = k.Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
sh.Cells(sat, "E").Value = sh.Cells(sat, "E").Value + Range("B4").Value
sh.Cells(sat, "F").Value = sh.Cells(sat, "F").Value + Range("B5").Value
sh.Cells(sat, "G").Value = sh.Cells(sat, "G").Value + Range("B6").Value
sh.Cells(sat, "I").Value = sh.Cells(sat, "I").Value + Range("B7").Value
sh.Cells(sat, "J").Value = sh.Cells(sat, "J").Value + Range("B8").Value
sh.Cells(sat, "K").Value = sh.Cells(sat, "K").Value + Range("B9").Value
sh.Cells(sat, "L").Value = sh.Cells(sat, "L").Value + Range("B10").Value
sh.Cells(sat, "M").Value = sh.Cells(sat, "M").Value + Range("B11").Value
sh.Select
Range("A" & sat).Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Set sh = Nothing
End Sub

 

[bmutlu966]

Evren çok teşekkürler tam istediğim gibi olmuş. Emeğine sağlık.

 

[Orion1]

Evren çok teşekkürler tam istediğim gibi olmuş. Emeğine sağlık.

Merhaba.
Yeni isim eklemek istediğinizde Onu önce 2nci sayfaya ekleyin.
Sonra butona tıklayınız.

 

[ynmcan]

Arkadaşlar,
Giriş sayfasından kişilerin masraflarını dataya makro ile aktarmam gerekiyor. Ayrıca aynı kişi için yapılan farklı değerler data sayfasında toplanması gerekiyor.

Syn. bmutlu966 ;
Alternetif olarak Userformlu bir örnek.
Ekteki dosyayı inceleyin.

 

[bmutlu966]

ynmcan selam,

çalışmanı şimdi gördüm, süper, eline sağlık.