Hücredeki 6 ve 5 haneli sayıları bulan program

[muzzymania]

Bir hücrede hem metin değerleri hemde sayılar var bu hücredeki 6 yada 5 haneli sayıları bulup yanındaki hücreye işaret koyan bir macro yada formul varmıdır ? yardımcı olursanız 3 saatlik işim 3 saniyede bitecek şimdiden teşekkürler

 

[Ömer]

Merhaba,

Verinizin A1 Hücresinde olduğunu düşünürsek,

B1 Hücresine,

=EĞER(YADA(UZUNLUK(A1)=5;UZUNLUK(A1)=6);"X";"")

Yazarak denermisiniz..

Eğer 5 yada 6 haneli veriniz varsa formülün yazıldığı hücrede X işareti oluşur..

 

[uzmanamele]

merhaba
syn espijonajl'ın formülünü türetirsek;
koşullu biçimlendirmeye aşağıdaki formülü yazın, bulduğu verileri kırmızıya çevirsin
=EĞER(YADA(UZUNLUK(KIRP($A1))=5;UZUNLUK(KIRP($A1))=6);1;0)

 

[muzzymania]

Öncelikle ikinizede çok teşekkür ederim aynı şekilde tüm sutundaki farklı hücrelerdeki bazı kelimeleride yapabilimiyiz mesela içirir fonksiyonu gibi ama 7-8 kelime arıyacak

Örnek: tüm sutunda hno ,tno, ref, fno , (vs) kelimelerini içeren hücreler için aynını yapabilirmiyiz ?? Teşekkürler

 

[Ömer]

Merhaba,

Bu istediğiniz yapılabilir, örnek dosya eklerseniz daha net cevaplar alabilirsiniz..

 

[muzzymania]

dosya ektedir incelerseniz sevinirim hücredeki sayılar metin gibi algılandığı için sanırım yukarıdaki formuller işe yaramıyor nasıl düzeltebilirim

örnek
-**aşapıdaki satırların hepsi bir hücre
ALOGLU TEKS. KARSISI HF: 809762
AYAS TURIZM USTU HF: 323362
BULENT DOGAN ILE GOR. HF: 323363
AYAS TURZIM USTU HF: 803825
RENA BAYII YANI HF: 803824
3 KATLI PEMBE EV HF: 803823
HAS EVLER KARSISI HF: 323361
SISTEM OTO KARSISI HF: 803822
CUMA AYGUN ILE GOR. HF: 803831
SU: 2131 HF: 803830

 

[Ömer]

Merhaba,

Dosya derken excel çalışmanızdan bahsetmiştim. Neyse sorun değil..

ALOGLU TEKS. KARSISI HF: 809762

Bu metnin hepsi tek bir hücrede mi ?

Siz bu metinle ilgili ne gibi bir işem yapma istiyorsunuz ?

 

[uzmanamele]

merhaba
1- dosya yok
2- yazdığınız örneğin konu ile ilgili olduğuna emin misiniz?

 

[muzzymania]

öncelikle dosyayı ekleyemedim ondan yapıştırdım

evet bu metnin hepsi tek bir hücrede ben bu hücrede hf gibi bazı kelimeleri ayıklamak istiyorum .hf ve diğer kelimelerden sonra gelen numaralar 6 yada 5 haneli olabilir. iki şekilde ayrımlanabilir ama sadece 6 haneli sayıları alması da yeterli değil ,içinden tekrar kelime eleyebilirim

 

[Ali]

Yukarıdaki örneğinize göre söylüyorum.

HF den sonra gelen sayıları almak istiyorsanız.

=ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024)))

yazıp aşağı doğru çekiniz.

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz. İstediğiniz bu mu?

 

[uzmanamele]

merhaba
aşağıdaki kodları bir modüle yazarak =harfal(A1) ve =NumaraAl(A1) şeklinde ktf kullanabilirsiniz.

'kodları yazan: Ali
Function HarfAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuc
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = False Then
Sonuc = Sonuc & Karakter
End If
Next i
HarfAl = Sonuc
End Function
Function NumaraAl(hucre)
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) = True Then
NumaraAl = NumaraAl & sayi
End If
Next i
End Function


not:
SU: 2131 HF: 803830
3 KATLI PEMBE EV HF: 803823
gibi verilerde işe yaramaz ama

 

[muzzymania]

Gerçekten kötü bir anlatıcı olabilirim
her zaman hücrenin içinde hf kelimesi geçmiyor başka kelimelerde geçiyor o nedenle içinde 5 yada 6 haneli sayıların olduğu hücreleri bulduktan sonra içinde hf,tno ,ref, gibi kelimeleri bularak 2. bir süzme uygulamam gerekebilir o nedenle sadece 5-6 haneli sayıları bulmak benim öncelikli tercihim
ilginize teşekkür ederim

 

[Ali]

hücreleri bulduktan sonra içinde hf,tno ,ref, gibi kelimeleri bularak 2. bir süzme uygulamam gerekebilir

Yazıyorsunuz ama hepsini içerir bir örnek yazmıyorsunuz. Saatlerdir boşuna uğraşıyoruz.

 

[muzzymania]

Aşağıda karışık bi kaç örnek var ama attach kısmı aktif değil ekleyemedim;
Şİmdi kargo firması için yapılan bir rapor bu ,haber formu numaralarıyla alakalı diğer elektrik numarası gibi bilgilerden ayıklamam lazım onuda hane sayısından eliyorum...

Tam bir brain storm oldu birsürü formul öğrendim gerçekten teşekkür ederim, ama vaktinizi aldıysam çok üzülürüm

DOSEME MAH. 61 SOK. HF:661548
AS BıLGıSAYAR YANı HF:691458
AKINTERDI APT. USTU ref:685465
KEMAL OZULKU İŞ MERKEZI ıno:698458
BELEDıYE KARSıSı HF:911455
YAPI KREDI USTU HF:691472
MATRAK SHOP USTU HF:691548
AKBANK KARSISI HF:695458
GÜVENLİKLE GÖRÜSÜLDÜ
KONUR ALP İŞ HANI KARŞISI
MUALLA AYK BİTİŞİ
Y.KREDİ BNKSI
İKİNCİ KEZ UĞRAMA YETKİLİ YOK
GÜVENLİK İLE GÖRÜŞÜLDÜ
ALICI PZTSİ İŞE GELCEK TÜLAY HANIM İLE GÖRÜŞÜLDÜ
TÜRKAN AKYÜREKLE GÖRÜŞÜLDÜ
GÜVEN NAKLİYAT YANI
2 KATLI KIRMIZI BOYAL IEV
FUAR DOLAYıSıYLA KAPALı ÇUKUROVA TOHUMCULUK YANı
ÇUKUROVA TOHUMCULUK YANI
ARTıK ŞU NUMARASı 4864
TÜRKAN AKYÜREK ILE GÖRÜŞÜLDÜ
EFE PROFİL KARŞISI
SEYCAN HANIMLAN GÖRÜŞÜLDÜ
ZİRVE ELEKTİRONİK KARŞISI
ÜZEYİR HAYRİ İLE GÖRÜŞÜLDÜ T.NO:674260
BURCU BİKİTANERLE GÖRÜŞÜLDÜ T.NO:674261
AHMET BOZKURT ILE GÖRÜŞÜLDÜ T.NO:674265
SİVTEKSİN YANI T.NO:673751
OPETİN YANI T.NO:673750
ÖZLER TARIMIN YANI T.NO:579116
NUR SİNANIN YANI T.NO:579115
OPETİN YANI T.NO:673750
T.NO:579114
T.NO:579113
GÜV. GÖRÜŞÜLDÜ T.NO:6742264
SU 175617 T.NO:612478
ELEKTRİK 618563 T.NO:674058
MAVİ RENKLİ EV T.NO:674271
SİYAH DIŞ KAPILI EV T.NO:674271
BEKÇİYLE GÖRÜŞÜLDÜ T.NO:674271
SU 175617 T.NO:674272
IŞIK DERS ARKASI T.NO:674273
GÜV GÖRÜŞÜLDÜ T.NO:674268
BÜROSAN DEPO YANI T.NO:674270
ABC KİMYA KARŞISI T.NO:674269

 

[uzmanamele]

merhaba
syn muzzymania,
kota sebebiyle dosyanızı ekleyemiyor olabilirsiniz.
dosyanızı winzip, winrar ile sıkıştırarak deneyiniz.

 

[uzmanamele]

merhaba
aşağıdaki formül yol göstermek açısından işinize yarayabilir.
daha fazlası olmalı ama birçok arkadaş gibi bende sıkıldım, kusura bakmayın

=EĞER(EHATALIYSA(SAĞDAN(A1;UZUNLUK(A1)-BUL("HF:";A1;1)+1));SAĞDAN(A1;UZUNLUK(A1)-BUL("T.NO:";A1;1)+1);SAĞDAN(A1;UZUNLUK(A1)-BUL("HF:";A1;1)+1))

 

[Ali]

Aşağıdaki formülü deneyiniz.Sağ taraftaki tüm sayıları alırsınız.


=EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024))));"";ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024))))

 

[muzzymania]

herkesin emeğine sağlık verilen bilgilerden yararlanarak devam edebilirim sanırım çook teşekkürler