- Katılım
- 23 Şubat 2007
- Mesajlar
- 131
- Excel Vers. ve Dili
- excel2003
İyi çalışmalar arkadaşlar sizden isteğim excelde hücreler arasındaki karşılaştırmayı yapabileceğim komut var mı bana örnek gönderirmisiniz.aşağıdaki gibi yaptım ama rakamları karşılaştırmıyor.Yani 657 ile 657 karşılaştırmıyor. ama d657 ile d657 dediğimde karşılaştırıyor ve işlem yapıyor.yani rakamın yanına mutlaka harf istiyor.Yardımcı olurmusunuz.
For k = 8 To s2.[IV4].End(xlToLeft).Column
Urun(k - 7) = Cells(4, k)
Sarf(k - 7) = Cells(3, k)
Hafta(k - 7) = Cells(1, 2)
Sayac = k - 7
Next
ktp1.Activate
For i = 1 To Sheets.Count
For k = 1 To Sayac
If Sheets(i).Name = "tum" Then
For m = 32 To 100
Set ShName1 = ktp1.Sheets(i).Cells(m, 1)
Set ShName = ktp1.Sheets(i)
If ShName1 = Trim(Urun(k)) Then
For t = 1 To 56
If Val(ShName.Cells(33, t)) = Val(Hafta(k)) And Hafta(k) <> "" Then
ShName.Cells(m + 1, t) = Sarf(k)
Exit For
End If
Next
Exit For
End If
Next
End If
Next
Next
For k = 8 To s2.[IV4].End(xlToLeft).Column
Urun(k - 7) = Cells(4, k)
Sarf(k - 7) = Cells(3, k)
Hafta(k - 7) = Cells(1, 2)
Sayac = k - 7
Next
ktp1.Activate
For i = 1 To Sheets.Count
For k = 1 To Sayac
If Sheets(i).Name = "tum" Then
For m = 32 To 100
Set ShName1 = ktp1.Sheets(i).Cells(m, 1)
Set ShName = ktp1.Sheets(i)
If ShName1 = Trim(Urun(k)) Then
For t = 1 To 56
If Val(ShName.Cells(33, t)) = Val(Hafta(k)) And Hafta(k) <> "" Then
ShName.Cells(m + 1, t) = Sarf(k)
Exit For
End If
Next
Exit For
End If
Next
End If
Next
Next
Son düzenleme: