Koşullu veri yazma hak.

[webuyeislemleri]

Örnekteki dosyada ki gibi koşullu veri yazma konusunda desteğe ihtiyacım var. Fikri olan var mı? Teşekkür.


http://www.dosya.tc/server32/eXVOtk/Kosullu.xlsx.html

 

[hamitcan]

Böyle deneyin.

Sub KodVer()
    For i = 7 To 2 Step -1
        If WorksheetFunction.CountIfs(Range("a2:a" & i), Cells(i, 1), _
                                      Range("c2:c" & i), Cells(i, 3)) > 1 Then
            If Cells(i, 3) = "Y001" Then Cells(i, "e") = "YK002"
            If Cells(i, 3) = "A001" Then Cells(i, "e") = "AK002"
        Else
            If Cells(i, 3) = "Y001" Then Cells(i, "e") = "YK001"
            If Cells(i, 3) = "A001" Then Cells(i, "e") = "AK001"
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[webuyeislemleri]

Tşk. Herşey gönlünüzce olsun.

 

[turen02]

Arkadaşlar merhaba benim bir dosyam var excell bin sütündan fazla fatura yazdım tam bu sırada birden bire bilgisayarım dondu ve takra açıldığında hücrelerde #değer yazılıydı bir çok hücrede hatta nerdeyse yarından fazlasında lütfen yadım edin bana