Veriyi bulup bölme işlemi ve açıklama yazdırmak.

[Galus]

Makro ile sütundaki veriyi bulup bölme işlemi yaptırıp yanındaki hücreye açıklama yazdırabilir miyiz?

Teşkkürler...

Saygılar...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BÖL_AÇIKLAMA_EKLE()
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) = "KALAY" Then
    If Cells(X, 2) <> 0 Then
    Cells(X, 3) = Cells(X, 2) / 25
    Cells(X, 4) = "TAMAM"
    End If
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Galus]

Çok teşekkürler Sayın COST_CONTROL.
Allah (CC) razı olsun.

Hocam aynı işlemi ÇİNKO'lara da nasıl uygulayabilirim?

Saygılar, hürmetler...

 

[isfa5878]

ekteki dosyaya bir bakın teker teker yapmak mı istiyorsanız..

 

[Galus]

Sayın isfa5878 ilginize teşekkürler. Fakat istediğim işlemi makro ile yaptırmak. Çünkü 300/500 satır var. Hem bütün satırları değil sadece işlem gören bir kaç malzemeye uygulamak istiyorum.

Saygılar...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodda aşağıdaki satıra kırmızı renk ile belirttiğim eklentiyi yaparak sorunu halladebilirsiniz.

If Cells(X, 1) = "KALAY" [B][COLOR=red]Or Cells(X, 1) = "ÇİNKO"[/COLOR][/B] Then

 

[isfa5878]

cost controle teşekkürle
küçük bir ek..
böyle mi?

 

[Galus]

Çok çok teşekkürler sayın COST_CONTROL.

Saygılarımla....

 

[Galus]

cost controle teşekkürle
küçük bir ek..
böyle mi?

Aynen öyle. Süper olmuş.

 

[isfa5878]

excel bir derya=emek