Koçan numarası takibi için ara ve bul

[irfancantr]

İyi günler,

Koçan takibi için bir maruzatım var,
Takibin kolaylaşması ve gözden kaçırmamak için koçan numaralarını takip etmek istiyorum.

B181 hücresinde bulunan 1118 Koçan numarası daha önceden yazılmadıysa eğer bir yan hücreye 1118 yazılı hücrenin yani (B181*100)-100 yazmasını istiyorum, eğer yazıldı ise D sütunundan ona karşılık olan son değeri bulup karşısına C181 hücresine yazmasını rica ediyorum.

İlgi ve alakanız için çok teşekkür ederim.

 

[irfancantr]

Formüllü değeri

Aslında formülle yapmak istediğim bu ama toparlayamadım ve formülle dosyayı çok yavaşlatacağından makroyu tercih ettim lakin olmazsa formüle devam

=MAK(DÜŞEYARA(B192;B6:D2000;3;0))

ve

=(B192*100)-100

bu ikisini uygun biçimde birleştirebilmek.

Eğer yazılan koçan değeri daha öncesi mevcutsa ilk formül yoksa ikinci formül devreye girmeli....

 

[irfancantr]

Herkese günaydın;

Dün dalgınlıkla birşeyi atladık, çözümü formülle yaparsak eğer daha sonradan yarım kalan aynı koçanı yazdığımız taktirde daha önce ki girilen sayı değerleride değişiyor ve iş karışıyor

Bu konuda yardımlarınızı bekliyorum.Teşekkürler iyi günler.

 

[Vedat Özer]

Selamlar,

Yanlış Anlamışta olabilirim.
ama belki bu formül işinizi görürmü??

=EĞER(B192>0;(B192*100)-100;MAK(DÜŞEYARA(B192;B6:D2000;3;0)))

 

[irfancantr]

Selamlar,

Yanlış Anlamışta olabilirim.
ama belki bu formül işinizi görürmü??

=EĞER(B192>0;(B192*100)-100;MAK(DÜŞEYARA(B192;B6:D2000;3;0)))

Evet kodlar doğru olarak birleştirildiler sayın Özer (aslında işime yarayan sizden esinlendiğim altta ki gibi) ama bu şekilde hazırlandığında daha önceden yazmış olduğumuz diğer yarım koçan numaralarıda karışıyor

=EĞER(B192>0;MAK(DÜŞEYARA(B192;B6:D2000;3;0);(B192*100)-100))

Bunun için ya hücreye değer girildikten sonra ;

C192 hücresine 
=EĞER(B192>0;MAK(DÜŞEYARA(B192;B6:D2000;3;0);(B192*100)-100))
Range("D4:D644").Value = Range("D4:D644").Value

tarzında bir makro yAda benim hazırlayamayacağım bir makroya ihtiyaç var

 

[Mehmet Şahin]

Merhaba,
dosyayı denermisiniz,
iyi çalışmalar.

 

[irfancantr]

Merhaba,
dosyayı denermisiniz,
iyi çalışmalar.

Elinize sağlık sayın dentex, birde bu hazırladığınız dosyaya önce ki değer yoksa =(B190*100)-100 gibi bir formül ekleyebilir miyiz?

Yeni koçan yazdığımızda daha eskisi bulunmayacağından sayıyı kendisinin belirlemesi açısından gerekli...

NOt: Kodlara baktım formülü hazırlanmış fakat sonuç vermiyor, neden olabilir acaba?

1168 diye yeni bir numara ekliyorum ama karşılık değeri değişmiyor...

 

[Mehmet Şahin]

Merhaba,
dalgınlık

WorksheetFunction.CountIf(Range("B6:B" & son), Cells(b, "B")) > [B][COLOR=Red]0[/COLOR][/B]

aşağıdaki ile değiştirerek deneyiniz, kolay gelsin.

WorksheetFunction.CountIf(Range("B6:B" & son), Cells(b, "B")) > [B][COLOR=Red]1[/COLOR][/B]

 

[irfancantr]

Çok sağolun sayın dentex...

 

[Mehmet Şahin]

sizler de sağolun...