Ismin baş harfi büyük soy isim tamamen büyük olarak yazılması için

turgayzeynep · Pazartesi saat 11:12'de

=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")

Hocam kolay gelsin İyi çalışmalar rica etsem bu formüle ek olarak ismin baş harfi büyük soyisim tamamen büyük olarak nasıl bir ekleme yapabilirim Formula bir yardımcı olabilir misiniz Aciliyeti var Şimdiden teşekkür ederim

muhasebeciyiz · Pazartesi saat 12:03'de

Maalesef Excel’de Türkçe karakterleri tam doğru işleyecek yerleşik bir "Yazım Düzeni" (Proper Case) fonksiyonu yoktur. YAZIM.DÜZENİ() fonksiyonu vardır, ancak Türkçe özel karakterlerde (ç, ğ, ı, ö, ş, ü) sorunlar yaratabilir.

Kod:

=EĞERHATA(YAZIM.DÜZENİ(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!M$2:M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR(B$2:B$100)-SATIR(B$2)+1);SATIR(A1))));"")

veya

Kod:

=EĞERHATA(BÜYÜKHARF(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!M$2:M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR(B$2:B$100)-SATIR(B$2)+1);SATIR(A1))));"")

turgayzeynep · Pazartesi saat 12:57'de

muhasebeciyiz' Alıntı:

Maalesef Excel’de Türkçe karakterleri tam doğru işleyecek yerleşik bir "Yazım Düzeni" (Proper Case) fonksiyonu yoktur. YAZIM.DÜZENİ() fonksiyonu vardır, ancak Türkçe özel karakterlerde (ç, ğ, ı, ö, ş, ü) sorunlar yaratabilir.

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOL(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1))))-1)) & " " & BÜYÜKHARF(PARÇAAL(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1))))+1;UZUNLUK(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1))))));"")

veya

Kod:

=EĞERHATA(BÜYÜKHARF(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!M$2:M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR(B$2:B$100)-SATIR(B$2)+1);SATIR(A1))));"")

Hocam formülü çalıştıramadım ama ben ek olarak size atayım sayfayı orada düzenleme yapıp tekrar paylaşabilir misiniz rica etsem iki tane çalışma sayfası var Gerekli bilgilendirmeleri sayfanın içerisine yazdım

muhasebeciyiz · Pazartesi saat 13:08'de

=EĞERHATA(YAZIM.DÜZENİ(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1))));"") "Ali Veli" yazmakta

=EĞERHATA(BÜYÜKHARF(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1))));"") "ALİ VELİ" yazmakta

Orijinal formülünüzde sadece B sütununa referans verdiğiniz için isim ve soyadı aynı sütundan çekiyorsunuz. Ancak soyadın tamamının büyük olması için isimle soyadın ayrı olması gerek.
Eğer ad ve soyadınız tek bir hücrede yer alıyorsa (örneğin ANA VERİ'!B$2:B$100 aralığında "Ali YILMAZ" şeklinde), formül bu ayrımı yapamadığı için istediğiniz sonucu vermemektedir.. Başka çözüm üretemedim.

Bu, formülü parçalayarak hatayı gidermek en kolay yoldur.

J9 hücresine şu formülü girin: =EĞERHATA(İNDİS('ANA VERİ'!B$9:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$9:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$9:B$100)-SATIR('ANA VERİ'!B$9)+1);SATIR(A1)));"")

sonrasındada

K9 hücresine şu basit formülü girin: =EĞERHATA(YAZIM.DÜZENİ(SOLDAN(J9;MBUL(" ";J9))) & " " & BÜYÜKHARF(SAĞDAN(J9;UZUNLUK(J9)-MBUL(" ";J9)));"")

Bu şekilde olmakta ancak dosyanıza bunu uyarlamak gerekiyor

muhasebeciyiz · Pazartesi saat 13:34'de

Peki makro olurmu

turgayzeynep · Pazartesi saat 13:43'de

muhasebeciyiz' Alıntı:
Peki makro olurmu

Olmaz hocam

Mdemir63 · Pazartesi saat 16:09'de

Selam

Verilerin A sütununda olduğunu farzederek örneğin b sütununa aşağıdaki formülü yazıp deneyebilirsiniz

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN(A1;BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))));"")

turgayzeynep · Pazartesi saat 16:11'de

Mdemir63' Alıntı:
Selam

Verilerin A sütununda olduğunu farzederek örneğin b sütununa aşağıdaki formülü yazıp deneyebilirsiniz

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN(A1;BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))));"")

=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$M$2:$M$100="Şahsın Kimlik ve Pasaport Numarası Olmadığından Kimlik Tespiti yapılamamıştır.";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")

Hocam bu formülde ad soyad yazıyor buna uyarlayarak yapabilir miyiz

Mdemir63 · Pazartesi saat 16:31'de

Bu formülü kullan

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN('ANA VERİ'!B9;BUL("*";YERİNEKOY('ANA VERİ'!B9;" ";"*";UZUNLUK('ANA VERİ'!B9)-UZUNLUK(YERİNEKOY('ANA VERİ'!B9;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN('ANA VERİ'!B9;UZUNLUK('ANA VERİ'!B9)-BUL("*";YERİNEKOY('ANA VERİ'!B9;" ";"*";UZUNLUK('ANA VERİ'!B9)-UZUNLUK(YERİNEKOY('ANA VERİ'!B9;" ";""))))));"")

turgayzeynep · Pazartesi saat 16:50'de

Mdemir63' Alıntı:

Bu formülü kullan

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN('ANA VERİ'!B9;BUL("*";YERİNEKOY('ANA VERİ'!B9;" ";"*";UZUNLUK('ANA VERİ'!B9)-UZUNLUK(YERİNEKOY('ANA VERİ'!B9;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN('ANA VERİ'!B9;UZUNLUK('ANA VERİ'!B9)-BUL("*";YERİNEKOY('ANA VERİ'!B9;" ";"*";UZUNLUK('ANA VERİ'!B9)-UZUNLUK(YERİNEKOY('ANA VERİ'!B9;" ";""))))));"")

Istediğim bu şekilde değildi hocam

Mdemir63 · Pazartesi saat 17:49'de

Mülakatları yapılamadı sayfasının B+ hücresine aşağıdaki formülü yazıp CTRL+SHİFT+ENTER ile

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2))))-1))&" "&BÜYÜKHARF(PARÇAAL(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2))))+1;50));"")

muhasebeciyiz · Pazartesi saat 17:53'de

Alternatif deneyiniz

turgayzeynep · Pazartesi saat 18:24'de

muhasebeciyiz' Alıntı:
Alternatif deneyiniz

Tamamdır hocam elinize sağlık Çok teşekkür ederim

muhasebeciyiz · Salı saat 08:36'de

Mdemir63' Alıntı:

Mülakatları yapılamadı sayfasının B+ hücresine aşağıdaki formülü yazıp CTRL+SHİFT+ENTER ile

Kod:

=EĞERHATA(YAZIM.DÜZENİ(SOLDAN(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2))))-1))&" "&BÜYÜKHARF(PARÇAAL(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2)));BUL(" ";İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$I$2:$I$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A2))))+1;50));"")

Lütfen Mdemir hocamızında çözümü deneyiniz. Çok şık bir çözüm sunmuş.Teşekkür ederiz kensisne

turgayzeynep · Salı saat 09:43'de

Ctrl shift enter yaptım ama isim gelmedi hocam

muhasebeciyiz · Salı saat 10:25'de

Gönderdiğim dosyamda Sayfa görünümünden normali seçiniz. H ve I sutunlarında formüller var o formülleride gerçek dosyanıza yazmanız gerekmektedir. veya ekteki dosyaı deneyiniz

alicimri · Salı saat 15:32'de

Alttaki KTF isimlerin ilk harfini soy isimin tamamını büyük harfe çeviriyor.
Türkçe karakter sorunundan kaçınmak için WORD'ün özelliğinden yararlandım.
Tek isim, iki isim (göbek isim) ayırmak için. isimsay diye bir değişken var, Tek isim için 1, çift isim için 2 değerini kullanın.

Kod:

Function ayar(ad, isimsay)
'On Error Resume Next
    Dim wordApp As Object
    Dim doc As Object
    Set wordApp = GetObject(class:="Word.Application")
        Set doc = wordApp.Documents.Add
        ad = Split(ad, " ")
        For i = 0 To UBound(ad)
        doc.Content.Text = ad(i)
        If i = 0 And isimsay = 1 Then
        doc.Content.Case = 2
       ElseIf i = 1 And isimsay = 1 Then
        doc.Content.Case = 1
        ElseIf i = 0 Or i = 1 And isimsay = 2 Then
        doc.Content.Case = 2
        Else
         doc.Content.Case = 1
        End If
       ayar = ayar & " " & doc.Content.Text
        ayar = Trim(ayar)
       Next
        doc.Close SaveChanges:=False
        wordApp.Visible = False
        Set doc = Nothing
        Set wordApp = Nothing
End Function

Ismin baş harfi büyük soy isim tamamen büyük olarak yazılması için

turgayzeynep

muhasebeciyiz

turgayzeynep

Ekli dosyalar

muhasebeciyiz

muhasebeciyiz

turgayzeynep

Mdemir63

turgayzeynep

Mdemir63

turgayzeynep

Mdemir63

Ekli dosyalar

muhasebeciyiz

Ekli dosyalar

turgayzeynep

muhasebeciyiz

turgayzeynep

muhasebeciyiz

Ekli dosyalar

alicimri