Dear Helmi,
'
Private Sub worksheet_change(ByVal i As Range)
i = Ucase(i)
End Sub

Sebaiknya range dibatasi agar tidak overlap ke mana2.
Misalnya kolom tempat input di kolom C, maka

Private Sub worksheet_change(ByVal i As Range)
    If i.Column = 3 Then
        i = Ucase(i)
    End If
End Sub

smoga sesuai






________________________________
 Dari: Helmi <[email protected]>
Kepada: [email protected] 
Dikirim: Kamis, 20 Juni 2013 11:18
Judul: ]] XL-mania [[ Input huruf kecil, hasil HURUF BESAR
 


  
To XL-Mania
bagaimana cara atau rumus jika kita input nama pegawai dengan huruf kecil 
(tanpa Caps Lock), ttp tersimpan menjadi hurup besar semua, contoh : 
Input : hasanuddin
Tersimpan : HASANNUDIN.
Inputnya melalui macro office 2003.
Makasih sebelumnya


 

Kirim email ke