matrah aktarma

[yalovam77]

Merhaba üsdatlarım

bordroda alt alta isimler sıralı ve bunlarında karşılarında matrahları yazılı matrah kayıt butonuna tıkladığımda hangi ayda isek matrah sayfasında o aya kayıt yapmak istiyorum yalnız bir sonraki ayda aynı ismin karşısına sadeca matrahı aktaracak yapmak istediğim konuyla ilgili ekte dosya gönderiyorum ilgilenirseniz sevinirim teşekkür ederim

 

[halit3]

Merhaba üsdatlarım

bordroda alt alta isimler sıralı ve bunlarında karşılarında matrahları yazılı matrah kayıt butonuna tıkladığımda hangi ayda isek matrah sayfasında o aya kayıt yapmak istiyorum yalnız bir sonraki ayda aynı ismin karşısına sadeca matrahı aktaracak yapmak istediğim konuyla ilgili ekte dosya gönderiyorum ilgilenirseniz sevinirim teşekkür ederim

mesajını diğer dosyadan ayırdım konunun dağılmaması için ekli dosyaya bir bakınız.?

Private Sub CommandButton2_Click()
ay = Val(Format(Now, "mm"))
sut = Application.InputBox("Aktarmak istadeğiniz ayı sayıssal dlarak yazınız..", "Başlangıç Tarihi", ay, 400, 30, , Type:=1)
If sut = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
sut = Val(sut) + 2
sat = Worksheets("MATRAH").Cells(Rows.Count, "B").End(3).Row + 1
For r = 7 To Worksheets("BORDRO").Cells(Rows.Count, "c").End(3).Row
aranan1 = Sheets("BORDRO").Cells(r, 3).Value
deg = 0
yer = 0
If Sheets("BORDRO").Cells(r, 3).Value <> "" Then
For i = 2 To Worksheets("MATRAH").Cells(Rows.Count, "B").End(3).Row
aranan2 = Sheets("MATRAH").Cells(i, 2).Value
If aranan2 = aranan1 Then
deg = 1
yer = i
End If
Next i
If deg = 1 Then
Sheets("MATRAH").Cells(yer, 2).Value = Sheets("BORDRO").Cells(r, 3).Value
Sheets("MATRAH").Cells(yer, sut).Value = Sheets("BORDRO").Cells(r, 10).Value
Else
Sheets("MATRAH").Cells(sat, 1).Value = sat - 1
Sheets("MATRAH").Cells(sat, 2).Value = Sheets("BORDRO").Cells(r, 3).Value
Sheets("MATRAH").Cells(sat, sut).Value = Sheets("BORDRO").Cells(r, 10).Value
sat = sat + 1
End If
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[yalovam77]

teşekkür ederim halit hocam yardımlarınız çok işe yaradı Allah razı olsun

 

[halit3]

teşekkür ederim halit hocam yardımlarınız çok işe yaradı Allah razı olsun

iyi çalışmalar