Kodda güncelleme

[igultekin2000]

hayırlı geceler; formülle I sütunda bulunan değerleri D sütunundaki karşılık hücresine yazdırmak istiyorum. I hücresinde değer varsa D hücresinde de olsa üzerine yazması gerekiyor. E hücresindeki değerin de C hücresine gitmesi şeklinde işlem ve rapor halinde resim ekledim. Teşekkürler.

 

[Ömer BARAN]

Merhaba.

H sütunundaki formülden anladığım kadarıyla aşağıdaki kod işinizi görür.
.

Sub I_dan_C_D_ye()
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    If Cells(sat, "H") = 99 Then
        Cells(sat, "D") = 5510
    ElseIf Cells(sat, "C") = "PRİM " And Cells(sat, "D") = "" And Cells(sat, "F") > 0 And Cells(sat, "H") = 2 Then
        Cells(sat, "D") = "ÖZEL İND."
    ElseIf WorksheetFunction.Trim(Cells(sat, "E")) <> "" Then
        Cells(sat, "C") = Cells(sat, "E"): Cells(sat, "E").ClearContents
    End If
Next
End Sub

 

[igultekin2000]

Merhaba.

H sütunundaki formülden anladığım kadarıyla aşağıdaki kod işinizi görür.
.

Sub I_dan_C_D_ye()
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    If Cells(sat, "H") = 99 Then
        Cells(sat, "D") = 5510
    ElseIf Cells(sat, "C") = "PRİM " And Cells(sat, "D") = "" And Cells(sat, "F") > 0 And Cells(sat, "H") = 2 Then
        Cells(sat, "D") = "ÖZEL İND."
    ElseIf WorksheetFunction.Trim(Cells(sat, "E")) <> "" Then
        Cells(sat, "C") = Cells(sat, "E"): Cells(sat, "E").ClearContents
    End If
Next
End Sub

Teşekkür ederim, istediğim gibi sorunsuz çalışıyor.

 

[Ömer BARAN]

Güle güle kullanın.
Hatırlatma: kod'daki ve sayfadaki değerlerde bazı BOŞLUK karakterleri var,
hem kodda hem de sayfadaki yapının aynı olmasını sağlamayı unutmayın
(örneğin PRİM kelimesinin sonundaki ve E sütununda boş olarak görünen hücrdeki BOŞLUK karakteri).

 

[igultekin2000]

Güle güle kullanın.
Hatırlatma: kod'daki ve sayfadaki değerlerde bazı BOŞLUK karakterleri var,
hem kodda hem de sayfadaki yapının aynı olmasını sağlamayı unutmayın
(örneğin PRİM kelimesinin sonundaki ve E sütununda boş olarak görünen hücrdeki BOŞLUK karakteri).

Evet dediğiniz hatayı sonradan farkettim, formülde sürekli hata verince 3-4 saat onunla uğraşmıştım. boşluk temizleme makrosu çalıştırınca hatayı görebildim. Hayırlı geceler

 

[Ömer BARAN]

Verdiğim kod'da E sütunundaki BOŞLUK karakteri zaten YOK sayılıyordu.
Kod'daki ilgili satırı da (Elseif şeklinde başlayan satır) aşağıdaki şekilde değiştirirseniz,
PRİM kelimesinin sonundaki BOŞLUK da dikkate alınmış olur.
Böylece; sadece bu işlem için boşluk silme makrosu çalıştırıyorsanız, ona gerek kalmaz.

ElseIf WorksheetFunction.Trim(Cells(sat, "C")) = "PRİM" And Cells(sat, "D") = "" And Cells(sat, "F") > 0 And Cells(sat, "H") = 2 Then

 

[igultekin2000]

Verdiğim kod'da E sütunundaki BOŞLUK karakteri zaten YOK sayılıyordu.
Kod'daki ilgili satırı da (Elseif şeklinde başlayan satır) aşağıdaki şekilde değiştirirseniz,
PRİM kelimesinin sonundaki BOŞLUK da dikkate alınmış olur.
Böylece; sadece bu işlem için boşluk silme makrosu çalıştırıyorsanız, ona gerek kalmaz.

ElseIf WorksheetFunction.Trim(Cells(sat, "C")) = "PRİM" And Cells(sat, "D") = "" And Cells(sat, "F") > 0 And Cells(sat, "H") = 2 Then

Başka sayfa toplama işleminde boşluk temizlemeyi kullanmıştım, kodu dediğiniz şekilde güncelledim. Teşekkür ederim.