iş raporu

[hazein]

Arkadaşlar ekteki dosyada nasıl bir şey yapmak istediğimi anlatmaya çalıştım.

Bir iş yerinde aynı işi yapıyoruz iş yaparken bir takım harcamalar yapıyoruz. Bunu ortak bir dosyaya kaydedip kimin ne kadar iş yaptığını ve kimin hangi taksici ile gittiğini bir tabloya kayıt etmek istiyoruz.

Makro bilmiyorum basit fonksiyonları biliyorum.

Böyle bir şeyi yapmamda bana yardımcı olursanız çok sevinirim.

Şimdiden teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub kaydet()
Dim sat As Long, i As Byte
Sheets("SON").Select
If Range("A5").Value = "" Then
    MsgBox "Föy no Boş olamaz..!!", vbCritical
    Range("A5").Select
    Exit Sub
End If
sat = [J212].End(3).Row + 1
If sat = 212 Then
    MsgBox "Satır Doldu .Başka kayıt yapamazsınız..!!", vbCritical
    Exit Sub
End If
For i = 1 To 5
    Cells(sat, i + 9).Value = Cells(5, i).Value
Next
MsgBox "Kayıt Girildi..!!", vbOKOnly + vbInformation
End Sub