COGNOMI Nomi, Riquadri

[cd7019]

Ciao,

Chiedo un vostro aiuto x risolvere due piccoli problemi.
1) Ho tanti cognomi e nomi e vorrei i Cognomi: con la lettera maiscola e i Nomi (anche + di uno): con la 1° maiuscola e le successive minuscola
es. ROSSI MARIO >>>> ROSSI Mario
Verdi giovanni >>>>> VERDI Giovanni
BIANCHI ALBERTO LUIGI >>>>> BIANCHI Alberto Luigi.

2) Ho diviso il foglio excel con i riquadri + blocco riquadri (linea verticale tra colonna D e colonna E)
- seleziono la cella A1:
If ActiveCell = [A1] Then Cells(1,20).Select
- vado alla cella (1,20) = [T1]
- la cella (1,20) deve essere visualizzata dopo la colonna D, quindi dovrò vedere le colonne A,B,C,D,T,U,V, ecc...

Grazie.

[ricky53]

Ciao,
andiamo avanti per punti:
punto "1"
i cognomi e i nomi sono in celle distinte?

punto "2"
il valore 20 è fisso?
quanto descritto vuol dire che le colonne dovranno essere nascoste?
se tu selezioni un'altra cella, per esempio "C1", cosa va fatto?


Più informazioni ci dai è prima arriveremo al risultato ... leggi la mia firma.

[cd7019]

1) I cognomi e i nomi sono nella stessa cella.
2) Ci possono essere 3 diverse selezioni:
If ActiveCell = [A1] Then Cells(1,20).Select vado in [T1] >>>> VEDO LE SEGUENTI COLONNE: A,B,C,D,T,U,V,W,...
If ActiveCell = [A2] Then Cells(1,21).Select vado in [U1] >>>> VEDO LE SEGUENTI COLONNE: A,B,C,D,U,V,W,...
If ActiveCell = [A3] Then Cells(1,22).Select vado in [V1] >>>> VEDO LE SEGUENTI COLONNE: A,B,C,D,V,W,...

Non devo nascondere nessuna colonna, ma visualizzarla dopo la colonna D, deve "scorrere" le colonne A,B,C,D. con BLOCCA riquadro.

Grazie

[ricky53]

Ciao,

per il putno "1"
il separatore tra cognome e i nomi è sempre e solo "uno spazio" ?

per il punto "2"
prova con

Codice: Seleziona tutto

    If ActiveCell.Address(0, 0) = "A1" Then
        Application.Goto Reference:=Range("T1"), scroll:=True
    End If


[cd7019]

Grazie.
E' quello che cercavo,
Però se metto ad esempio vai alla cella(5,20) = [T5] mi scorre il foglio anche verso l'alto.
Non c'è un comando che annulla lo scorrimento verso l'alto e lascia solo lo scorrimento orizzontale.

Ciao

[ricky53]

Ciao,
però così hai cambiato le condizioni che avei esposto all'inizio.

Ci sono altre cose diverse?

Se gli scrivi T5 perchè poi vuoi che vada a T1?
Non gli puoi scrivere subito T1 ?

[cd7019]

hai ragione,
scusa

il dato si trova in [T5], quindi andavo su [T1] e poi scendo con il tasto giù 4 volte.
in [T1] c'è l'intestazione, e desidero vederla.

ciao

[ricky53]

Ciao,
per vedere le intestazioni devi bloccare i riquadri sulla cella "E1" e non sulla colonna "E" come hai fatto tu.

Prova e poi vediamo il resto.

[cd7019]

Il problema che nelle colonne A1-D6 ho dei dati che voglio visualizzare sempre.

Ciao

[ricky53]

Ciao,
allora blocca su "E7".

Però dovresti dire tutto subito ... eviteresti questi scrivi, rispondi, riscrivi, ... che ne dici?

Si crea confusione agli utenti che leggono oltre che sfruttare male il tempo proprio ed altrui (in questo caso io)

Ricordalo la prossima volta e proseguiamo con il quesito ma se hai altre cose che non hai detto scrivile subito..

[cd7019]

Ciao,

1) mi è successo una cosa strana, quando blocco i riquadri (FINESTRA >>> DIVIDI >>> BLOCCA RIQUADRI) i menù a tendina non funzionano più.
E' possibile riattivarli.

2) E' possibile attivare solamente lo scroll in una direzione (ORIZZONTALE o VERTICALE)?
se esiste? scroll:=True >>> scrollORIZ:=False >>> scrollVERT:=True

3) Formattare i caratteri presenti in una cella in modo da avere:
Cognomi (1° PAROLA): con la lettera maiscola e i Nomi (anche + di uno): con la 1° maiuscola e le successive minuscola
es. ROSSI MARIO >>>> ROSSI Mario
Verdi giovanni >>>>> VERDI Giovanni
BIANCHI ALBERTO LUIGI >>>>> BIANCHI Alberto Luigi.


Grazie

[cd7019]

Per il punto 3) Sono riuscito a risolvere il problema, però mi sembra abbastanza contorto, qualcuno sa come semplificarlo?

Codice: Seleziona tutto

Sub NOMI()
For I = 1 To 10
    Cells(I, 2) = Application.Substitute(Cells(I, 1), "  ", " ")
    Cells(I, 2) = LCase(Cells(I, 2))
    L = Len(Cells(I, 2))
    SSPACE = L - Len(Application.Substitute(Cells(I, 2), " ", ""))
    If SSPACE = 0 Then
        Cells(I, 2) = UCase(Cells(I, 2))
    Else
        POS = InStr(Cells(I, 2), " ")
        TXT = UCase(Mid(Cells(I, 2), 1, POS + 1))
        For NS = POS + 2 To L
            If Mid(Cells(I, 2), NS, 1) = " " Then
                TX = " " & UCase(Mid(Cells(I, 2), NS + 1, 1))
                NS = NS + 1
            Else
                TX = Mid(Cells(I, 2), NS, 1)
            End If
            TXT = TXT & TX
        Next NS
        Cells(I, 2) = TXT
    End If
Next
End Sub

Grazie