excellde sutun içindeki yazıları ve rakamları ayırma

[ebka28]

merhaba arkadaşlar
excellde sutun içindeki yazıları ve rakamları ayırma konusunda yardımlarınızı bekliyorum istediğim bilgileri ekte belirttim

şimdiden tşkler

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Lütfen sorularınızı alakasız başlıklar altına sormayınız. Bu şekilde sorunuz yanıtsız kalabilir. İlk mesajınız olduğu ben ayrı bir başlığa taşıdım. Lütfen bundan sonra bu konuya özen gösterin.

 

[ebka28]

merhaba yeni üye oldum

alakasız derken neyi alakasız buldunuz bir yanlışlıkmı yapmışım,

 

[Korhan Ayhan]

Selamlar,

Sizin sorunuzun aşağıdaki başlıkla ne alakası var. Ben bir benzerlik göremedim.

Yazılan bir rakamın yandaki hücresinin yanına otomatikman rakam gelmesi

 

[İhsan Tank]

merhaba arkadaşlar
excellde sutun içindeki yazıları ve rakamları ayırma konusunda yardımlarınızı bekliyorum istediğim bilgileri ekte belirttim

şimdiden tşkler

merhaba
öncelikle Korhan Ayhan Hocanın Önerisini dikkate alınız.
sorunuzun yanıtına gelince
öncelikle excel dosyanızda bir adet module buradan oluşturabilirsiniz
oluşturduğunuz module

Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

Function HARFAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If Not IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Harf Bulunamadı!", SONUÇ)
    HARFAYIR = SONUÇ
End Function

bu kodları ekleyiniz
ardından sayfanızın c2 satırına

=UZUNLUK(B2)-UZUNLUK(D2)+RAKAMAYIR(B2)

bu formülü
d2 satırına

=HARFAYIR(B2)

bu formülü yazınız
ve aşağıya doğru çekiniz.
not Kod Ktf'dir excel'e özgü bir forrmül değildir. Kod ile yapılmıştır.
Bu Ktf Korhan Ayhan Uzman'ın bir çalışmasından alıntıdır.
örnek dosya ekte

 

[ebka28]

teşekkür ederim elinize sağlık,

korhan bey sizde kusura bakmayın neden bu kadar tepki gösterdinizz anlamadım ama yinede özür dilerim sağolsun bir arkadaş sizin çalışmalarınızdan örneği göndermiş

hepinize iyi çalışmalar

 

[İhsan Tank]

teşekkür ederim elinize sağlık,

korhan bey sizde kusura bakmayın neden bu kadar tepki gösterdinizz anlamadım ama yinede özür dilerim sağolsun bir arkadaş sizin çalışmalarınızdan örneği göndermiş

hepinize iyi çalışmalar

elime sağlık olmadan hocamın uyarısını dikkate alınız çünkü hocam size iyilik yapmış tepki göstermemiş yol göstermiş böyle davranmaya devam etmeyin. ayrıca bu mesaj'a karşılık birşeyler'de yazmayın polemik olmasın.
bana teşekkür ediyorsunuz ama hocam size yol gösterdiği için ona tepki göstermişsiniz o yüzden bu teşekkür'ü kabul etmiyorum.
kolay gelsin :bad:

 

[ebka28]

korhan beye tepki göstermedim,
kendisine mesaj gönderdim tşk ettim,orda bir sorumada sağolsun cevap vererek yardımcı oldu
ben sizede yinede çok teşekkür ediyorum,

 

[ebka28]

ihsan bey
gerçekten çok üzüldümya, kendimi kötü hissettim, artık soru sorsamda cevap alamam sanırım

 

[İhsan Tank]

ihsan bey
gerçekten çok üzüldümya, kendimi kötü hissettim, artık soru sorsamda cevap alamam sanırım

öncelikle şunu söyliyeyim size hatanızı anlamanız bile çok güzel
soru sorduğunuzda yanıt alma konusuna gelince alırsınız aynı diğer üyeler gibi bu konuda şüpheniz olmasın
kendinize iyi bakın :mutlu:

 

[ebka28]

ihsan beu teşekürler

dün sizn benim için yaptığınz çalışmayı kullanmaya çalıştım, diğer tüm verileri ekledim formulleri aşağıya doğru çektim ad diye hata verdi, benim makro bilgim yok bunu excellde yapamazmıyız bu konuda yardımcı olabilirmisiniz?

 

[İhsan Tank]

ihsan beu teşekürler

dün sizn benim için yaptığınz çalışmayı kullanmaya çalıştım, diğer tüm verileri ekledim formulleri aşağıya doğru çektim ad diye hata verdi, benim makro bilgim yok bunu excellde yapamazmıyız bu konuda yardımcı olabilirmisiniz?

merhaba
siz'de #AD hatası vermesinin sebebi makro güvenlik ayarlarından kaynaklanıyor bunu kullanarak değiştiriniz
diğer sorunuza gelince bunu excel'de yerleşik fonksiyonlar ile yapamıyoruz çünkü böyle bir formül mevcut değil ondan dolayı KTF ( kişiye Tanımlı Fonksiyon ) formülü ile çözüldüğünden bende dosyanızı ona göre düzenledim size verdiğim makro kodu'nu dosyanızda bir adet module ekliyerek formülleri dosyanıza ekliyebilirsiniz.

 

[ebka28]

ihsan bey

dediğinizi yaptım , ama şöyle bir sorun var içerisinde geçen rakamları farklı atmış sizin yapmış olduğunuz dosyadan bir kontrol edermisiniz birde şunu öğrenmek istiyorum metin içindeki ft no ve kdvsi kısmınıda silim diğer içeren yazıları yerleştirebilirmiyiz

 

[İhsan Tank]

ihsan bey

dediğinizi yaptım , ama şöyle bir sorun var içerisinde geçen rakamları farklı atmış sizin yapmış olduğunuz dosyadan bir kontrol edermisiniz birde şunu öğrenmek istiyorum metin içindeki ft no ve kdvsi kısmınıda silim diğer içeren yazıları yerleştirebilirmiyiz

merhaba
söylediğiniz gibi bazı numaraları farklı çıkartmış bunun kod'unu değiştirerek sonuça ulaştım.
module'deki kodu

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

bununla değiştiriniz.
hücredeki formülleri
c2 hücresine

=NumaraAl(B2)*1

d2 hücresine

=HarfAl(B2)

bu formülleri yazınız.
örnek dosya ektedir.
ayrıca yeni kod Ali uzman'dan Alıntıdır.
diğer sorunuz ise ft no : ve Kdv'si kızmını kaldırmak bunu siz orada yazmazsanız olur diğer şekilde formüller hata vermektedir.

 

[Korhan Ayhan]

Selamlar,

Verileriniz çok düzensiz tutulmuş. Bu sebeple formüller uzun oldu. Ekteki örnek dosyayı incelermisiniz.

Fatura nosunu almak için C2 hücresine; (CTRL+SHIFT+ENTER tuşları ile hücreye girin.)

=EĞER(B2="";"";PARÇAAL(B2;KAÇINCI(DOĞRU;ESAYIYSA(1*PARÇAAL(B2;SATIR($1:$1024);1));0);BAĞ_DEĞ_SAY(1*PARÇAAL(B2;SATIR($1:$1024);1))))

Açıklama kısmını almak için D2 hücresine;

=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(B2;C2;"");"FT NO: ";"");"FT.NIZ NO:";"");"FT.";"");"KDVSI";""))

 

[ebka28]

korhan bey

harikasınız çok teşekkür ederim .Başarılarınızın devamını dilerim,

 

[ebka28]

sayfa2 veri bulup sayfa bir otomatik geçmesi

merhaba

ekli dosyaki sayfa 2 de geçen bazı bilgileri sayfa 1deki bilgilerle aynı olanları karşılarına otomatik olarak gelmesini istiyorum .

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülleri kullanabilirsiniz.

E2 hücresine;

=EĞER(EYOKSA(DÜŞEYARA("*"&D2&"*";Sayfa2!C:E;2;0));"";DÜŞEYARA("*"&D2&"*";Sayfa2!C:E;2;0))

F2 hücresine;

=EĞER(EYOKSA(DÜŞEYARA("*"&D2&"*";Sayfa2!C:E;3;0));"";DÜŞEYARA("*"&D2&"*";Sayfa2!C:E;3;0))