Bir sütundaki verilerimin içinde arama yapıp en yakın değeri bulmak

[a_self_lion]

Merhaba arkadaşlar C sütunumda 8 inci satırdan 1000 inci satıra kadar 9.satır 610504001005 10.satır 610504001011 11.satır 610805005009 12.satır 620506009011 .... şeklinde stok kodlarım mevcut.
değerim deki bir yeriyi diyelim ki 610504001014 olsun bu veriyi bu c sütununda kontrol edip en yakın yeri olan 10.satırı bulup hemen bir altına satır ekletip bu kodu oraya yazdırıp Rengini de kırmızı yapabilir miyim.

Örnek dosya
http://dosya.web.tr/Kpn2pO

Saygılarımla.

 

[sefaburan]

kardeş cümleyi o kadar uzun kurmuşsun ki, anlamadım, belge ekleyebiliyor musun

 

[sefaburan]

en yakın yer derken, rakamsal anlamda mı en yaknı yer

 

[a_self_lion]

olabilir rakamsal yada metin olarak hiç fark etmez. ben birde örnek ekleyeyim.

 

[a_self_lion]

http://www.excel.web.tr/f48/sql-den-gelen-verinin-en-yakyn-yere-bir-t151919.html
aslında yapmak istediğim bu bakarsanız. Ben burda kısaca anlatmak istedim ama oda uzun oldu.

 

[a_self_lion]

Örnek dosya ve açıklama ektedir.

http://dosya.web.tr/Kpn2pO

 

[sefaburan]

peki burdakilerle tamamen aynı olacak hiçbir sayı olacak mı, yoksa gelebilecek tüm sayılar bu listedekilerden farklı mı olacak

 

[a_self_lion]

Evet aynı sayıda olacak aynı ise zaten karşısına verilerini yazacak
Aynı olamayan çıkarsa işte en uygun yere satır açarak yazdırmak istiyorum. Ki sonradan elimle girmek zorunda kalıyorum. Çünkü yeni aylarda yeni kodlar çıkıyor.

 

[sefaburan]

az kaldı, sadece basit bir yerde takıldım, belki bunuda sen biliyorsundur, mesela a1 hücresinde yazan değeri tüm sayfada nasıl aratırız, makro ile

 

[a_self_lion]

Tüm sayfada neden aratacaksın ki

 

[sefaburan]

Tüm sayfada neden aratacaksın ki

tamam tüm sayfada değil sadece tek sütunda aratmak

sadece bu gerekli

 

[a_self_lion]

Gerisini nasıl yaptın yakın değeri bulmayı

 

[sefaburan]

=İNDİS(C:C;KAÇINCI(MİN(İNDİS(MUTLAK(F1-C:C);0;0));İNDİS(MUTLAK(F1-C:C);0;0);0)) bu formülle, f1 hücresine arayacağınız değeri yazdığınızda, bu formülü yazdığınız hücreye c sütünundaki tüm değerlerin arasında arayıp, formül yazdığınz hücreye getirir.

bundan sonraki iş makro ile olacak, bsu formülü yazdığınız hücredeki veriiy c sütununda aratmaya kaldı şimdi

 

[sefaburan]

yalnız c sütununda hiçbir metin olmamalı, sadece sayı olmalı

 

[a_self_lion]

Benim C sutunumdaki verilerim Metin Sanırım bu şekilde olmaz diye düşünüyorum. Denedim sizinkini. Bir tane bile metin olsa formül yanlış oluyor.
Teşekkür ederim Sefa bey.

 

[sefaburan]

ama en yakın sayının belirlenmesinde sadece rakam kullanılır, metinleri ne yapacak, zannımca metin içeren sütunlarda formül ile bu elde edilemez. makro ile olabilir belki

 

[a_self_lion]

Formül demedim ki zaten vba ile olacak tabikide stok muhasebe satış vb... kodları genelde her zaman metin olur.
Sub TEST()
ara = Trim("610301005005")

For i = Len(ara) To 1 Step -1
Set bul = Columns(3).Find(Left(ara, i))
If Not bul Is Nothing Then
Rows(bul.Offset(1).Row).Insert
Exit For
End If
Next i

End Sub
Şöyle bir şey olacak ama tam çözemedim. Bu Belirttiğim örnek çalışmanın sadece bir parçası Sayın Sefa
İlgin için çok teşekkür ederim.

 

[sefaburan]

öyle desene güzel kardeşim ya dosyan http://s6.dosya.tc/server3/kmrg42/ornek__1_.rar.html . incele ve cevapla lütfen

 

[a_self_lion]

Evet güzel fakat burada Columns hepsinde değilde mesala aranan değeri left ile her seferinde bir karakter aşağı çekiyor ya işte onu columns verisinin içindede öyle aramak gerekiyor. yoksa bulamadı diyor.

 

[sefaburan]

Anlamadım valla kardes