Yıllara göre Kira bedelleri

[omeryılmaz]

Demirbaş kayıt sayfası "H" sütununda kayıtlı ve Texbox1-2-3-4 deki yıllara göre sütunda değeri bulup karşısına "I" sutununa Texbox 5-6-7-8 deki kira oranını yazdırmak
Örn: H sütunu - I sütunu
1.satır 2008 - %30
2.satır 2009 - %25
3.satır 2008 - %30
4.satır 2009 - %25
5.satır 2010 - %10
6.satır 2008 - %30 vb....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit

Private Sub Aktar_Click()
    Dim X As Long, Y As Byte
    
    If ComboBox9 <> "" Then
    
    With Sheets("DEMİRBAŞKAYIT")
        For X = 2 To .Range("A65536").End(3).Row
            For Y = 1 To 4
                If Val(.Cells(X, "H")) = Val(Me.Controls("TextBox" & Y)) Then
                    .Cells(X, "I").Value = Me.Controls("TextBox" & Y + 4).Value / 100
                End If
            Next
        Next
   End With
   
   MsgBox "İşleminiz tamamlanmıştır.", vbInformation
   
   End If
End Sub

 

[omeryılmaz]

Teşekkürler Hocam...