Soru Gelir Vergisi Matrahı Aktarımı.

[sedat2161]

Hayırlı geceler sayın hocalarım.
Ekli dosyamda Matrah Aktar butonu ile açılan userformda 1. Dönem matrah aktar butonuna bastığımda R4 te bulunan ayın matrahı Matrah sayfasındaki ilgili aya aktarılması,
Aynı şekilde 2. Dönem matrah aktar butonuna bastığımda ilgili aya aktarılması için yardımlarınızı bekliyorum.

 

[sedat2161]

Hayırlı sabahlar değerli hocalarım. Dün bu konuyu paylaşmıştım.
Forumda benze konuları araştırdım en yakın sonuca ulaştım ama bi sorun oluştu.
Bu kodu kendime uyarladım
Dim Bul As Range
With Worksheets("Matrah")
If WorksheetFunction.CountIf(.Range("B3:M3"), "<>") >= 3 Then
.Range("B3:M3").ClearContents
End If
Set Bul = .Range("B2:M2").Find(Range("R4"))
Bul.Offset(0, 0) = Range("I7")
End With
ama aktarma yaptığımda ilgili ayın üzerine rakam geliyor. Altına gelmesi gerekiyor. Yardımlarınızı bekliyorum.

 

[halit3]

kod

Private Sub CommandButton1_Click()

sayf1 = "Asgari Ücret"
sayf2 = "Matrah"
aranan1 = Worksheets(sayf1).Cells(4, "R").Value
aranan2 = Worksheets(sayf1).Cells(7, "E").Value
For r = 2 To 13
bulunan1 = Worksheets(sayf2).Cells(2, r).Value
If aranan1 = bulunan1 Then
Worksheets(sayf2).Cells(3, r).Value = aranan2
Exit For
End If
Next r

MsgBox " işlem tamam"
End Sub

Private Sub CommandButton2_Click()

sayf1 = "Asgari Ücret"
sayf2 = "Matrah"
aranan1 = Worksheets(sayf1).Cells(4, "R").Value
aranan2 = Worksheets(sayf1).Cells(8, "E").Value
For r = 2 To 13
bulunan1 = Worksheets(sayf2).Cells(2, r).Value
If aranan1 = bulunan1 Then
Worksheets(sayf2).Cells(4, r).Value = aranan2
Exit For
End If
Next r

MsgBox " işlem tamam"
End Sub

 

[sedat2161]

kod

Private Sub CommandButton1_Click()

sayf1 = "Asgari Ücret"
sayf2 = "Matrah"
aranan1 = Worksheets(sayf1).Cells(4, "R").Value
aranan2 = Worksheets(sayf1).Cells(7, "E").Value
For r = 2 To 13
bulunan1 = Worksheets(sayf2).Cells(2, r).Value
If aranan1 = bulunan1 Then
Worksheets(sayf2).Cells(3, r).Value = aranan2
Exit For
End If
Next r

MsgBox " işlem tamam"
End Sub

Private Sub CommandButton2_Click()

sayf1 = "Asgari Ücret"
sayf2 = "Matrah"
aranan1 = Worksheets(sayf1).Cells(4, "R").Value
aranan2 = Worksheets(sayf1).Cells(8, "E").Value
For r = 2 To 13
bulunan1 = Worksheets(sayf2).Cells(2, r).Value
If aranan1 = bulunan1 Then
Worksheets(sayf2).Cells(4, r).Value = aranan2
Exit For
End If
Next r

MsgBox " işlem tamam"
End Sub

Hocam çok teşekkür ederim Allah razı olsun.