ÜCRET GETİRME

[badi1984]

Dosya sekmesinde örnek ücretler yazan kısma yeni rakam getirme

 

[AdemCan]

Yapmak istediğinizi biraz daha detaylandırır mısınız?
Dosya sekmesine gelecek ücretler için gerekli olan şartlar nedir?
Örnek olarak olması gereken halini doldurup da paylaşabilirsiniz.

 

[badi1984]

Yapmak istediğinizi biraz daha detaylandırır mısınız?
Dosya sekmesine gelecek ücretler için gerekli olan şartlar nedir?
Örnek olarak olması gereken halini doldurup da paylaşabilirsiniz.

A ve B sutununda yazan ücretler dosya sekmesinde var ise yanına d sutununa sayfa 1 deki c sutununda ücretler gelsin büyük küçük mantığı gibi

 

[AdemCan]

Dosya sayfası D2 hücresine formülü uygulayıp deneyiniz.

=TOPLA.ÇARPIM((C2>=Sayfa1!$A$2:$A$9)*(C2<=Sayfa1!$B$2:$B$9);Sayfa1!$C$2:$C$9)

Alternatif olarak makro kodu

Sub kontrol()
Application.ScreenUpdating = False
Dim s1 As Worksheet, s2 As Worksheet, son As Long, son2 As Long, i As Long, x As Long
Set s1 = Sheets("DOSYA")
Set s2 = Sheets("Sayfa1")
son = s1.Cells(Rows.Count, 1).End(3).Row
son2 = s2.Cells(Rows.Count, 1).End(3).Row

s1.Range("D2:D" & son + 1).Clear

For i = 2 To son
    For x = 2 To son2
        If s1.Cells(i, "C") >= s2.Cells(x, "A") And s1.Cells(i, "C") <= s2.Cells(x, "B") Then
            s1.Cells(i, "D") = s2.Cells(x, "C")
        End If
    Next x
Next i

Set s1 = Nothing: Set s2 = Nothing
son = 0: son2 = 0: i = 0: x = 0
Application.ScreenUpdating = True
End Sub

 

[badi1984]

teşekkür ederim çok sağolun

 

[AdemCan]

Rica ederim.