- Katılım
- 19 Ekim 2022
- Mesajlar
- 18
- Excel Vers. ve Dili
-
Microsoft Office 365 64bit
Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-08-2024
Merhabalar, ekteki dosyada göreceğiniz üzere iki sayfa var. müşteriden her ay gelen yüzlerce satırlık satış arasında oranları otomatik hesaplamaya çalışmaya çalışıyorum ama benim belirlediğim (ana veriler sayfasında) yüzdenin üzerindeyse uyarı vermesini sağlayamadım bir türlü. ve sonradan bir kaç sütun ekledim (dosyada yeşil olarak işaretli) bunları vba'da nasıl işleme almam gerektiğini çözemedim bir türlü.
DOSYA.CO
DOSYA.CO
Kod:
Sub Test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("ANA VERİLER")
ss1 = s1.Cells(Rows.Count, "A").End(3).Row
ss2 = s2.Cells(Rows.Count, "A").End(3).Row
For i = 3 To ss1
s1.Cells(i, 5) = s1.Cells(i, 4).Value / s1.Cells(i, 3).Value
Aranan = Cells(i, 1)
With s2.Range("A1:A" & ss2)
Set c = .Find(Aranan, LookIn:=xlValues)
If Not c Is Nothing Then
If .Cells(c.Row, 3) = Abs(s1.Cells(i, 5) * 100) Then
s1.Cells(i, 6) = "TAM SINIRDA OK."
Else
s1.Cells(i, 6) = "EN FAZLA " & s2.Cells(c.Row, 3) & " OLMASI GEREKİYOR"
End If
End If
End With
Next i
Range("E3:E" & ss1).NumberFormat = "0.00%"
Range("E3:E" & ss1).Interior.Color = vbYellow
End Sub