stok takip sofort yazan yerin yanip sonmesini istiyorum

[metincevik]

umarim bana yardim edersiniz
ornek dosyada (O hucresine sofort yazdigim zaman Otomatik olarak yanip sonmesini istiyorum
simdi den tesekkur ederim ederim

 

[1Al2Ver]

umarim bana yardim edersiniz
ornek dosyada kirmizi ile sofort yazan bolumun yanip sonmesini istiyorum
simdi den tesekkur ederim ederim

Sayın Sertkaya'nın kodu ;

Sub YANIPSON()
On Error GoTo hata
Dim durum As Boolean, i As Single
Do While (True)
If durum = True Then
Range("C1").Interior.ColorIndex = 3
For i = 0 To 5000
DoEvents
Next
durum = False
Else
Range("C1").Interior.ColorIndex = xlNone
For i = 0 To 5000
DoEvents
Next
durum = True
End If
Loop
hata:
End Sub

Kırmızı yazan yerlere istediğiniz hücre adresini yazınız, (sofort yazan hücrenin adresi)

 

[metincevik]

cok tesekkur ederim yanit icin
beceremedim galiba
ornek yolasam bakarmisiniz

 

[1Al2Ver]

cok tesekkur ederim yanit icin
beceremedim galiba
ornek yolasam bakarmisiniz

Sayın metincevik ,

Ekleyebilirseniz daha çabuk ve daha çok çözüm alırsınız,

 

[metincevik]

ekli dosyanin januar bolumunde sofrt yaziyor

 

[1Al2Ver]

ekli dosyanin januar bolumunde sofrt yaziyor

Sayın metincevik,

Ek'li dosyanız nerede, ekliyemediniz sanırım.

İlave seçeneklerden "dosya ekle veya sil" butonu yardımıyla ekleyiniz.

 

[metincevik]

ekledim en basta ekli dosya
bu kadar hizli bir cevab alidigima sevindim tsk

 

[1Al2Ver]

ekledim en basta ekli dosya
bu kadar hizli bir cevab alidigima sevindim tsk

Sayın metincevik,


Ancak siz veri ilave ettiğinizde "O" sütununda sofort yazanlar yanıp sönsün isterseniz kod şu haliyle O3:O116 aralığını kapsamaktadır.

O116 artarsa koddaki aralığı artırmanız gerekir.

Sub YANIPSON()
On Error GoTo hata
Dim durum As Boolean, i As Single
Do While (True)
If durum = True Then
Range("O3:O116").Interior.ColorIndex = 3
For i = 0 To 5000
DoEvents
Next
durum = False
Else
Range("O3:O116").Interior.ColorIndex = xlNone
For i = 0 To 5000
DoEvents
Next
durum = True
End If
Loop
hata:
End Sub

 

[metincevik]

ellerinize saglik ama ben yanlis anlatim galiba kusura bakmayin
sofort yazini sildigim an o hucre de yanip sonuyor
sizden istedigim O satiridaki Hucreye her hangi birnine sofort yazdigim zaman otamatik kendiliginden yanip sonmesini istetim uyariyi kendi versin
mumkun se tabigki tesekur ederim

 

[1Al2Ver]

ellerinize saglik ama ben yanlis anlatim galiba kusura bakmayin
sofort yazini sildigim an o hucre de yanip sonuyor
sizden istedigim O satiridaki Hucreye her hangi birnine sofort yazdigim zaman otamatik kendiliginden yanip sonmesini istetim uyariyi kendi versin
mumkun se tabigki tesekur ederim

Sayın metincevik, merhaba

Bildiğim kadarıyla hücrenin yanıp-sönmesi bir buton ile tetiklenmek zorunda, bu sebeple hücrenin içerisinde yazana bağlı olarak bir tetikleme olabilir mi bilemiyorum,

Birçok yanıp-sön makrosu bu yöntemle çalışıyor ve yanıp sönen hücre adedi çoksa sistemi zorluyor,

Sizin koşullu biçimlendirme ile renklendirme yapmanız, sanki daha iyi gibi, ama sanırım bu size yetmedi,

İstediğiniz şöyle bir şey ; Eğer O1 (yada O1:Ox) sofort ise, O1 (yada O1:Ox)yansın-sönsün,

Bu komut makro ile yazılıp bir butona atanırsa olabilir gibi geliyor,

Ancak bu kod benim bilgimi aşıyor, sanırım uzman arkadaşlarımız buna bir çözüm üretirler,

Teşekkür ederim.

 

[metincevik]

ilginize tsk ederim sadece istedigim (O hucresine sofort yazdigimda Yanip son mesiydi )
gercekten burasini buyuzden cok seviyorum karsisindaki insanlarad deger veriliyor sagolasin yardiminiz icin

 

[1Al2Ver]

ilginize tsk ederim sadece istedigim (O hucresine sofort yazdigimda Yanip son mesiydi )
gercekten burasini buyuzden cok seviyorum karsisindaki insanlarad deger veriliyor sagolasin yardiminiz icin

Sayın metincevik, tekrar merhaba,

Nezaketiniz için teşekkür ederim,

Gerçekten de böyle bir sitenin üyesi olmak ayrıcalıktır,

Kendimizi karşımızdaki kişinin yerine koyduğumuzda herşey çözülür, yeterki empati yapmasını bilelim,

Ben de sizin gibi zaman zaman hatta çoğu zaman yardım alıyorum, sağolsun arkadaşlar herzaman imdada yetişiyorlar,

Umarım ve eminim sorununuza bir arkadaşımız çözüm bulacaktır,

Herşey gönlünüzce olsun,

Saygılarımla.

 

[Ferhat Pazarçevirdi]

Belki bu linkteki kodlar; 1Al2Ver'in bahsettiği makro ile çözüm için, size yardımcı olabilir veya yol gösterebilir.


.

 

[metincevik]

umarim bana yardim edersiniz
ornek dosyada (O hucresine sofort yazdigim zaman Otomatik olarak yanip sonmesini istiyorum
simdi den tesekkur ederim ederim

ustalarin yardimina ihtiyacim var

 

[metincevik]

yardim edecek kimse yok galiba

 

[Korhan Ayhan]

Selamlar,

Ferhat beyin vermiş olduğu linkteki kodları kendi dosyanıza uyarlayamadınız sanırım. Ekte örnek dosyanıza uyarladım. İncelermisiniz.

F11 tuşuna basarak çalışan makroyu durdurabilirsiniz.
F12 tuşana basarak tekrar çalıştırabilirsiniz.

 

[metincevik]

aynen istedigim buydu cok sagolun
yardimlariniz icin bu yesil rengi nasil kirmiziya ceviririm

 

[mami68]

aynen istedigim buydu cok sagolun
yardimlariniz icin bu yesil rengi nasil kirmiziya ceviririm

Bu kod'ta 4-ü 3 yazın

Adres.Interior.ColorIndex = 3

 

[Korhan Ayhan]

Selamlar,

Kırmızı renk için üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[metincevik]

yardimi gecen tum arkadaslara tesekur edeim
hepiniz supesiniz
saygilarla