DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
Set s1 = Sheets("data")
Range("A4:B7").ClearContents
Range("D4:E7").ClearContents
For i = 4 To s1.Cells(65536, "A").End(xlUp).Row
For k = 4 To 7
If Cells(65536, "E").End(xlUp).Row = 7 Then Exit Sub
If s1.Cells(i, "C").Value = Cells(k, "C").Value And s1.Cells(i, "F").Value _
= Cells(k, "F").Value Then
If Cells(k, "E").Value = "" Then
Cells(k, "A").Value = s1.Cells(i, "A").Value
Cells(k, "B").Value = s1.Cells(i, "B").Value
Cells(k, "D").Value = s1.Cells(i, "D").Value
Cells(k, "E").Value = s1.Cells(i, "E").Value
Exit For
End If
End If
Next k
Next i
Set s1 = Nothing
End Sub
Sayın Orion2 kardeş,Ekli dosyayı inceleyiniz.
=TOPLA.ÇARPIM((data!$C$4:$C$100=liste!C4)*(data!$F$4:$F$100=liste!F4);(data!$G$4:$G$100))
Sayın Muygun,Slm.
Örneği inceleyin. Diğer döviz sayfalarınıza gerek kalmayacaktır.
sayın Orion2,Dosyayı istediğiniz şekilde düzenledim.
Önceki mesajımdan indirebilirsiniz.
Sayın Muygun,Slm.
Örnek çalışmada veri-süz yapmanıza gerek yok. yapmanız gereken her sütun için sarı hücrelerde istediğiniz kiriteri boş bırakarak yada veri girerek belirlemek.
Yada sorunuzu benmi yanlış algıladım?