Kritik Değerleri Olan Hücrelerdeki İsimler Listelenebilir mi?

[staluer]

Merhaba,
Sorum şöyledir ;

Bir depo listesi tuttuğumuz exceldeki malzemelerin kritik değerlerini belirledikten sonra ,excel açılışında kritik değerde olanları bir mesaj kutusuyla listeleyebilir miyiz ?

 

[İhsan Tank]

Merhaba,
Sorum şöyledir ;

Bir depo listesi tuttuğumuz exceldeki malzemelerin kritik değerlerini belirledikten sonra ,excel açılışında kritik değerde olanları bir mesaj kutusuyla listeleyebilir miyiz ?

Merhaba
Boş bir module kopyalayın ve kaydedip kapatın tekrardan açın

Option Explicit
Sub auto_open()
Dim ts, kaplan, trabzonspor, hamsi As Date
For ts = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(ts, "C") < Cells(ts, "B") Then
Cells(ts, "D") = Cells(ts, "C")
End If
Next
For ts = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(ts, "D") <> "" Then
kaplan = kaplan & Cells(ts, "A") & " Kalan " & Cells(ts, "D") & vbLf
End If
Next
Range("D:D").ClearContents
If kaplan <> Empty Then
MsgBox kaplan
Else
MsgBox "Kritik Malzeme Yok", , "Hata"
End If
End Sub

 

[staluer]

Çok teşekkürler.Peki bu listeyi excelde çalışırken görebilmemiz için bir butona atayabilir miyiz ?

 

[İhsan Tank]

Çok teşekkürler.Peki bu listeyi excelde çalışırken görebilmemiz için bir butona atayabilir miyiz ?

Merhaba
Bir düğme oluşturun açılan Makro Ata'dan auto_open'ı seçin ve tamam deyin. İki Şekilde de çalışsın.

 

[staluer]

tamamdır.çok teşekkürler....

 

[İhsan Tank]

tamamdır.çok teşekkürler....

Rica ederim
:keyif:

 

[staluer]

Son bir sorum olacak tahmin etmişsinizdir.
Bu kritik listeyi yazdırmak..
Mümkün müdür ?

 

[İhsan Tank]

Son bir sorum olacak tahmin etmişsinizdir.
Bu kritik listeyi yazdırmak..
Mümkün müdür ?

Mesaj listesini mi yazdırmak istiyorsunuz yoksa kritik olanları mı_?

 

[İhsan Tank]

Merhaba
Kodu bununla değiştirir misiniz_?

Option Explicit
Sub auto_open()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
Set bordo = Sheets("Sayfa1")
Set mavi = Sheets("Sayfa2")
mavi.Cells.Delete
trabzonspor = 2
bordo.Range("A1:C1").Copy Destination:=mavi.Range("A1")
For ts = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(ts, "C") < bordo.Cells(ts, "B") Then
kaplan = kaplan & bordo.Cells(ts, "A") & " Kalan " & bordo.Cells(ts, "D") & vbLf
bordo.Rows(ts).Copy Destination:=mavi.Range("A" & trabzonspor)
trabzonspor = trabzonspor + 1
End If
Next
If kaplan <> Empty Then
MsgBox kaplan
[COLOR="Red"]mavi.PrintOut[/COLOR]
Else
MsgBox "Kritik Malzeme Yok", , "Hata"
End If
mavi.Cells.Delete
End Sub

 

[staluer]

Teşekkürler....

 

[İhsan Tank]

Teşekkürler....

Rica ederim
:keyif:

 

[asuzen]

İhsan bey peki yazdırma makrosunu ayırabilirmiyiz burada. Yani kritik seviyedekileri isteğe bağlı olarak yazdırsak. Kritik seviyedekileri belirlemek için bir düğme bunları da yazdırmak için ayrı bir düğmeye makroyu atayıp yazdırmak istediğimiz zaman kullanabilirsek daha iyi olacak.

 

[İhsan Tank]

İhsan bey peki yazdırma makrosunu ayırabilirmiyiz burada. Yani kritik seviyedekileri isteğe bağlı olarak yazdırsak. Kritik seviyedekileri belirlemek için bir düğme bunları da yazdırmak için ayrı bir düğmeye makroyu atayıp yazdırmak istediğimiz zaman kullanabilirsek daha iyi olacak.

Üstteki kodda kırmızıya boyadım.
Bence ona bir sorgu ekleyin ve yazdırmak isterseniz yazdırın yoksa yazdırmayın en mantıklısı bu bence

 

[asuzen]

Teşekkürler.
Kırmızıya boyadığınız kısımı değiştirerek makroyu çoğalttım ve iki ayrı düğmeye atadım.
Örnk dosya ektedir.
Emeğinize tekrar teşekkürler...

 

[staluer]

Teşekkürler ama bir küçük problem var galiba.Mesaj kutusuna çok sayıda malzeme listelenemiyor.Belli bir yerden sonrakileri göstermiyor....
Nasıl çözebiliriz ?

 

[staluer]

Şöyle bir şey mümkün müdür ?
Açılışta veya sayfada çalışırken sorguladığında kritik malzemeler var uyarısı çıkıp "göster" veya "kitaba geri dön" seçenekleri çıksa,göster dediğimizde de kritik malzeme diye bir sayfaya bu malzemeleri listelese....
Yardımlarınızı bekliyorum ...

 

[asuzen]

Şöyle bir şey mümkün müdür ?
Açılışta veya sayfada çalışırken sorguladığında kritik malzemeler var uyarısı çıkıp "göster" veya "kitaba geri dön" seçenekleri çıksa,göster dediğimizde de kritik malzeme diye bir sayfaya bu malzemeleri listelese....
Yardımlarınızı bekliyorum ...

Bazı değişiklikler yaptım dosya üzerinde. Son hali ekte bir bakın istediğiniz gibi olmuş mu?

 

[staluer]

Çok teşekkürler.Şimdilik tamamdır.Kullandıkça buradan gelişmeleri yazmaya çalışırım.

 

[staluer]

Merhaba.Dosyayı ek'teki gibi düzenledikten sonra Sayfa 3'e aktar dediğimde Sayfa 1 deki tüm sütunları aktarıyor.
Sadece kritik malzeme adı ve değeri aktarılsa yeterli olacaktır.
Kodları nasıl değiştirmeliyiz?

 

[İhsan Tank]

Merhaba.Dosyayı ek'teki gibi düzenledikten sonra Sayfa 3'e aktar dediğimde Sayfa 1 deki tüm sütunları aktarıyor.
Sadece kritik malzeme adı ve değeri aktarılsa yeterli olacaktır.
Kodları nasıl değiştirmeliyiz?

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kritik_aktar_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
trabzonspor = MsgBox("Kritik Olanları Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Set bordo = Sheets("Sayfa1")
Set mavi = Sheets("Sayfa3")
mavi.Range("A:C").Delete
bordo.Range("A2:C2").Copy Destination:=mavi.Range("A1")
kaplan = 2
For ts = 4 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(ts, "C") < bordo.Cells(ts, "B") Then
mavi.Range("A" & kaplan & ":C" & kaplan).Value = bordo.Range("A" & ts & ":C" & ts).Value
kaplan = kaplan + 1
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Kritik Seviyedekileri Aktardım", , "Bitiş"
End Sub