[e-XPLoDeR]

Merhaba arkadaşlar.

Ekteki resimdeki gibi bir tablomuz var (yaklaşık 3500 satır). "Stok İsmi" kısmındaki verilerin hepsi büyük harf ile yazılmış. "YAZIM.DÜZENİ" işlevini kullanarak hepsinin tek bir hamlede sadece baş harflerininin büyük olmasını istiyorum.

Yardımlarınız için şimdiden teşekkürler.

[hikomen]

Word de değiştirme işlemi yapılabiliniyordu. Şu an Office 2007 yüklü bende de bunun menüleri değişik olduğundan bulamadım. Eğer word de aktarma imkanın varsa biçim menüsünde Büyük/Küçük Harf değiştir komutlarını kullanablirsin.

[e-XPLoDeR]

Evet Word'de oluyor; fakat ben hücreleri korumak istiyorum. Çünkü daha sonra bu satırları MySQL veritabanına göndereceğim (her hücre bir kayıt mevzusu). O yüzden Excel'de yapmak şart.

[absconder]

F sutununu kullanarak F1 e

=PROPER(A1)

yazar ve bunu bütün sutuna yayarsanız, çıkan sonuçları A sutununa kopyalarsanız istediğiniz olacaktır sanırım. ya da başka sutun istemiyorsanız,

Sub TitleWord()
    SatirSayisi = 10
    For I = 1 To SatirSayisi
        BuyukHarfler = Split(Cells(I, 1), " ")
        tmp = ""
        For J = 0 To UBound(BuyukHarfler)
            If Len(tmp) > 0 Then tmp = tmp + " "
            tmp = tmp + UCase(Left(BuyukHarfler(J), 1)) + LCase(Mid(BuyukHarfler(J), 2))
        Next
        Cells(I, 1) = tmp
    Next
End Sub

şeklinde basit bir makro ile yapılabilir.

Önemli Not: Makro ile yapılan değişiklikler geri alınamaz, dolayısıyla yedeklemeniz tavsiye edilir.

[e-XPLoDeR]

Sonunda hallettim; ama başka bir yoldan. Yine de teşekkürler.

[soul]

Hallettiniz yolu da yazarsanız biz de bir yol daha öğrenmiş oluruz. Racondandır

[e-XPLoDeR]

@hilkomen'in fikri sayesinde şöyle bir yol izledim:

Düzenleme yapmak istediğim sütun ve satırları koruyarak Word'e aktardım. Baş harflerinin büyük olması işlemini, korunmuş sütun ve satırları seçerek Word'de yaptım. Word'de işim bittikten sonra tekrar aynı şekilde sütun ve satırları koruyarak yeni bir Excel dosyasına yapıştırdım, deyim yerindeyse "cillop" gibi oldu. Daha önceden akıl edemediğime yanıyorum.

Raconlara uyduysam ne mutlu