Condividi:        

tutto minuscolo SOLO colonna specificata

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

tutto minuscolo SOLO colonna specificata

Postdi raimea » 03/12/16 14:23

ciao
vorrei mettere:
in Maiuscolo la prima lettere e tutto il resto minuscolo
il contenuto di una colonna specifica F dal cella F6

io conosco una macro ma opera sull intero file e questo mi crea problemi
nello colonne con le date
questa quella che conosco io :
Codice: Seleziona tutto
 Dim C As Object
   Set zona = ActiveSheet.UsedRange
    For Each C In zona
    If C <> "" And IsNumeric(C) = False Then
    C = UCase(Mid(C, 1, 1)) + LCase(Mid(C, 2))
    End If
   Next


quindi vorrei poter specificare la colonna (F6) dove mettere
tutto minuscolo il contenuto e Maiscolo la 1ma lettera

via ringrazio

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: tutto minuscolo SOLO colonna specificata

Postdi patel » 03/12/16 16:35

Codice: Seleziona tutto
LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C <> "" And IsNumeric(C) = False Then
       C = UCase(Left(LCase(C), 1))
    End If
Next
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: tutto minuscolo SOLO colonna specificata

Postdi raimea » 03/12/16 16:53

ciao
non fa nulla resta tutto uguale

ti allego un file di esempio

https://dl.dropboxusercontent.com/u/96374724/minusc.rar
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago

Re: tutto minuscolo SOLO colonna specificata

Postdi patel » 03/12/16 18:31

Codice: Seleziona tutto
Sub minuscl()
Dim C As Range
LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C <> "" And IsNumeric(C) = False Then
    C = UCase(Mid(C, 1, 1)) + LCase(Mid(C, 2))
    End If
   Next
End Sub

oppure
Codice: Seleziona tutto
Sub minuscl()
Dim C As Range
LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C.Value <> "" And IsNumeric(C.Value) = False Then
       C.Value = Application.WorksheetFunction.Proper(C.Value)
    End If
Next
End Sub
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: tutto minuscolo SOLO colonna specificata

Postdi Anthony47 » 03/12/16 20:53

La 1 oppure la 2, tenendo presente che Proper imposta su maiuscolo le iniziali di tutte le parole presenti in cella.

Ciao!
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: tutto minuscolo SOLO colonna specificata

Postdi raimea » 03/12/16 23:48

ciao

tutto bene
funziona correttamente

Grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "tutto minuscolo SOLO colonna specificata":


Chi c’è in linea

Visitano il forum: Nessuno e 21 ospiti