• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Şartlı liste takibi yapma

S

sensizsoldum

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
merhaba arkadaşlar günaydın herkese,
excellde sürekli kullandığım bi çalışmam var, bunu makroya çevirmek ve birazda geliştirmek istıyorum.
bu çalışmada bi listemiz olduğunu varsayalım,
ve sistemden takip edilen bu listeye ait rakamsal değerler olmakta,
bu listeye ait gelen rakam var ise listede, atılanlarda, ve kontrolde yeşil olmasını, kontrolde açılımına SEND yazmasını isriyorum.
listeye ait yok ise.atılanlar bolumunde o listeye ait olmayan rakamın kırmızı ve kontrolde de WARNİNG yazmasını istiyorum.

örnek çalışmam alt linktedir.
ilgi ve alakalarınız için gönülden tşk ederım iyi çalışmalar dilerim.

http://s2.dosya.tc/server6/OqrUGU/yeni.xls.html
 
arkadaşlar bu konuya da göz atabilir mısınız çok rica edıyorum. saatlerce seçme işlemi yapmak zounda kalıyorum.
çok tşk edeım.
 
mrhaba ilgi alakanıza çok teşekkür ederim.
ancak butonsuz olabilir mi giriş yapıldığı an işlem görmesini istıyorum.
 
sayın Husgvarna listede herhangi bi giriş olmayınca atılanlarda ve kontrolde de herhangi bi işlem gerçekleşmiyor.
atılanlar listesi, listeden daha fazla olabilir. az önce de deiğim gibi butonsuz olması benim için çok öenmli.
bunlarda olusa sanırsam tam istediğim gibi olucak.

tekrardan tşk ederım. elinize sağlık iyi çalışmalar dilerim.
 
a sutunda atıyorm 10 tane veri girişimiz var
b sutunda da 20 tane,
b ve c sutunda ilk 10 tane veri girişinin sonuçları var, diğerlerinide vermesi için a sutunda herhangi bi giriş olmalı.
b sutuna girişler a dan fazla olabiliyor. ayrıca bir çok seçim içinde kullanabilirim o şekılde
 
Husgvarna' Alıntı:
Hangi sütuna giriş yapıldığında?
Genişletmek için tıkla ...
Sanırım anlatamadım.!
Yukarıdaki dosya değişti. Onu deneyin.
Bu dosyada "B" sütununa veri girdiğinizde kod çalışacak diğerlerinde çalışmayacak.
Eğer "A" ve "B" sütunlarının ikisindede çalıması gerekse kırmızı bölümü değiştirin

Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target.Cells, [COLOR="Red"]Range("b3:b65000")[/COLOR]) Is Nothing Then Exit Sub

Şöyle:
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target.Cells, Range("A3:b65000")) Is Nothing Then Exit Sub
 
merhaba ek dosyada herhangi bi değişiklık yapmadım. (kırmızı yerle alakalı)
makronun tam istediğim çalışma şekli bu şekılde ama,
b ve a sutunlarından verileri sildiğimizde renk durumu hangisi ise,
orda kalıyor, veri girişi olmadığında renksiz olmasını sağlayabilirmıyız. ve sonuçların alınması için seçili yerin b de olması şart.
bunu sayfada ki herhangi bi yer yapabilir mıyız. ve c sutununda yani kontrolde de uyarı durumu kalıyor. onunda a ve b sutunları boşsa etkisiz olması gereklı

bu arada çok tşk ederim çok sağolun. emeğiniz büyük hakkınızı helal edin lutfen.

saygıyla, iyi çalışmalar dilerim.
__________________
Boş zaman yoktur, Boşa giden zaman vardır..!
 
Son düzenleme:
sensizsoldum' Alıntı:
b ve a sutunlarından verileri sildiğimizde renk durumu hangisi ise,
orda kalıyor, veri girişi olmadığında renksiz olmasını sağlayabilirmıyız.
Genişletmek için tıkla ...
Kod: 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target.Cells, Range("b3:b65000")) Is Nothing Then Exit Sub
[COLOR="Red"]Range("A3:c65000").Interior.ColorIndex = xlNone[/COLOR]
If Cells(65000, 1).End(xlUp).Row < Cells(65000, 2).End(xlUp).Row Then
Kodlara kırmızı bölümü ekleyin. "B" sütununda herhangi bir hücreyi seçtiğinizde
yenileyecektir.Boş hücreleri renklendirmeyecektir.

sensizsoldum' Alıntı:
ve sonuçların alınması için seçili yerin b de olması şart.
bunu sayfada ki herhangi bi yer yapabilir mıyız.
Genişletmek için tıkla ...

Kod: 
If Intersect(Target.Cells, [COLOR="#ff0000"]Range("b3:b65000")[/COLOR]) Is Nothing Then Exit Sub
Kırmızı bölümü herhangi bir sütun adıyla değiştiriseniz kod sadece o sütunda çalışacaktır.Örneğin sadece "D" sütununda Range("d3:d65000")
 
renk sorunu için, bu kodu tarif ettiğiniz yere ekledim kaydettim, kayderek çalışmayı kapa aç yaptım sonuç vermedi,
kod bolumune baktığımda ise eklediğim kod yok:(

rica etsem kodu uygulamaya eklermısınız :(
 
merhaba kodu uyguladım evet oldu :( ancak b sutunundan veri silindiğinde kontrol sutununda send ve warning yazısı silinmıyor :(
 
çok tşk ederim, çok sağolun hakkınızı helal edin lutfen.
mutlu akşamlar dilerim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst