Soru Makro ile Hedefin Altında Kalırsa Uyarı Versin İstiyorum

[seccilk]

Merhaba bir dosyada "Etiket" sayfasından etiket alınıyor. Bu etiket alındıkça "Liste" sayfasından günlük üretim adedi düşüyor. Ben günlük 7900 adet hedef koymak istiyorum. Etiket aldıkça Hedefin altındasın tarzında uyarı versin istiyorum. Nasıl yapabilirim, dosyayı eklicektim fakat nasıl eklenir bulamadım :/ teşekkürler

 

[u.L.a.s]

İlgili sayfanın makro kodu düzeneğini açıp bu 7900 hücren neresiyse o hücre adresini aşağıdaki kodda A1 yerine değiştirerek uygula

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value < 7900 Then
MsgBox "Hedefin altındasın..!", vbCritical
End If
End Sub

 

[seccilk]

İlgili sayfanın makro kodu düzeneğini açıp bu 7900 hücren neresiyse o hücre adresini aşağıdaki kodda A1 yerine değiştirerek uygula

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value < 7900 Then
MsgBox "Hedefin altındasın..!", vbCritical
End If
End Sub

MERHABA,

ÖNCELİKLE TEŞEKKÜRLER ÇALIŞTIR DEDİĞİMDE HEDEFİN ALTINDASIN OLARAK YAZMIYOR SADECE USEFORM1 OLARAK CIKIYOR VE BEN O DEĞER ARTTIKÇA O UYARI CIKSIN İSTİYORUM NASIL YAPABİLİRİZ

 

[Korhan Ayhan]

Dosyanızı buraya yükleyebilirsiniz.

WeTransfer | Send Large Files Fast

The simple, quick and secure way to send your files around the world without an account. Share your files, photos, and videos today for free.

wetransfer.com

 

[seccilk]

https://we.tl/b-ls3m9ItDel merhaba dosya linki ektedir. Teşekkürler

 

[Korhan Ayhan]

Neden makro ile uyarı verdirmek istiyorsunuz.

Koşullu biçimlendirme ile verdirilebilir.

Mesela C2 hücresine aşağıdaki formülü yazın.

=EĞER(B2<7900;"HEDEFİN ALTINDA";"")

Daha sonra C2 hücresini seçin. GİRİŞ menüsünden KOŞULLU BİÇİMLENDİRME menüsünü açın. Aşağıdaki görseli takip edin.

2. resimde ÖZEL seçeneğini seçip rengi ve fontu kişiselleştirebilirsiniz.

1-)


2-)

 

[seccilk]

Neden makro ile uyarı verdirmek istiyorsunuz.

Koşullu biçimlendirme ile verdirilebilir.

Mesela C2 hücresine aşağıdaki formülü yazın.

=EĞER(B2<7900;"HEDEFİN ALTINDA";"")

Daha sonra C2 hücresini seçin. GİRİŞ menüsünden KOŞULLU BİÇİMLENDİRME menüsünü açın. Aşağıdaki görseli takip edin.

2. resimde ÖZEL seçeneğini seçip rengi ve fontu kişiselleştirebilirsiniz.

1-)
Ekli dosyayı görüntüle 213973

2-)
Ekli dosyayı görüntüle 213974

Merhaba ben etiket sayfasına uyarı gelsin istiyorum buyüzden makro demiştim. o toplam sayfası gizlenicek. Etiket sayfasında üretim kaydı oluştur var oraya basınca etiket alınıyor. Bastığı anda karşısına cıksın istiyorum

 

[u.L.a.s]

merhaba

toplam sayfasında b2 hücresinde 3160 gibi bir toplam var.

anladığım kadarıyla Etiket sayfasında sağ tarafta büyük tablodaki veriler önce Etiketdata sayfasına gidiyor. etiket sayfasındaki miktar karşısında yazan sayı ne ise sıradaki satırda Etiketdata sayfasında tomplam miktar yani g sütununda hücreye yazılıyor

böylelikle g sütunundaki toplam değişiyor. işte bu işlem sırasında toplam sheetindeki yeni bir toplam oluşunca.

burada o zaman bu veri aktarıldıktan sonra bu macronun çalışmasını sağlamak lazım

ama işte burada şu bilgi lazım etiket sayfasındaki veriyi etiketdata ya sen bir macro düzeneği çalıştırarak mı aktarıyorsun. çünkü gönderdiğin excelde herhangi bir macro düzeneği yoktu. ve sanırım ortak alandaki bobin.xlsm dosyası içerisindeki yazılan bir makrodan çalışıyor. o makro sonuna

Call hedefalti diye bir ekleme yapılabilir
bu hedefalti içinde ayrı bir modüle de kod düzeneğini şu şekilde revize etmek gerekecek

Sub hedefalti ()
If Sheets("TOPLAM").Range("B2").Value < 7900 Then
MsgBox "Hedefin altındasın..!", vbCritical
End If
End Sub

 

[seccilk]

merhaba

toplam sayfasında b2 hücresinde 3160 gibi bir toplam var.

anladığım kadarıyla Etiket sayfasında sağ tarafta büyük tablodaki veriler önce Etiketdata sayfasına gidiyor. etiket sayfasındaki miktar karşısında yazan sayı ne ise sıradaki satırda Etiketdata sayfasında tomplam miktar yani g sütununda hücreye yazılıyor

böylelikle g sütunundaki toplam değişiyor. işte bu işlem sırasında toplam sheetindeki yeni bir toplam oluşunca.

burada o zaman bu veri aktarıldıktan sonra bu macronun çalışmasını sağlamak lazım

ama işte burada şu bilgi lazım etiket sayfasındaki veriyi etiketdata ya sen bir macro düzeneği çalıştırarak mı aktarıyorsun. çünkü gönderdiğin excelde herhangi bir macro düzeneği yoktu. ve sanırım ortak alandaki bobin.xlsm dosyası içerisindeki yazılan bir makrodan çalışıyor. o makro sonuna

Call hedefalti diye bir ekleme yapılabilir
bu hedefalti içinde ayrı bir modüle de kod düzeneğini şu şekilde revize etmek gerekecek

Sub hedefalti ()
If Sheets("TOPLAM").Range("B2").Value < 7900 Then
MsgBox "Hedefin altındasın..!", vbCritical
End If
End Sub

EVET TAM OLARAK İSTEDİĞİM BU AMA NEREYE YAZACAĞIMI BİLEMEDİM DOSYA LİNKİNİ EKLEDİM

Collect by WeTransfer

The best way to save, organize and share ideas from all your apps

we.tl