[Excel]Lungh. stringhe in un range e parte oltre 40° caratt.

[SebNan]

Ciao a tutti,
ho un file excel con n righe ed n colonne, dove nella colonna K devo inserire la lunghezza dei caratteri contenuti nella colonna J, e laddove la lunghezza è maggiore di 40, la parte da 41 in poi scriverla nella colonna L (se possibile inserire la formattazione condizionale nella colonna K per i > di 40).

Spero di essere stato chiaro

Grazie

[ninai]

ciao
da quello che ho capito:
in K2: =LUNGHEZZA(J2)
in L2: =SE(K2>40;STRINGA.ESTRAI(J2;41;K2-40);"")

per la formattazione condizionale in K, hai scritto tu stesso cosa fare.

[SebNan]

si, esattamente

[ricky53]

Ciao,
la tua risposta non fa capire se sei riuscito a trovare la soluzione anche per la formattazione condizionale.

[SebNan]

Ciao, no non sono riuscito a trovare la soluzione per la formattazione condizionale.
Il problema è che non riesco a far funzionare neanche lo script per inserire la lunghezza ho provato con il codice di seguito riportato ma mi restituisce sempre il valore 1, inoltre non riesco a fare lo stringa estrai. Scrivendo (Lunghezza) o (Stringa.estrai) come da te suggerito è ok ma non riesco a farglielo fare in VBA, perchè non so come si scrivono i comandi

T = Range("A" & Rows.Count).End(xlUp).Row
For N = 3 To T
Cells(T, "K") = Len("J")

[Anthony47]

Codice: Seleziona tutto

 ho provato con il codice di seguito riportato ma mi restituisce sempre il valore 1

Visto il codice direi che e' il risultato corretto...
Che uso hai potuto fare della formula di ninai? Se non e' quello che chiedevi, puoi aggiungere qualcosa che chiarisca bene il bisogno?

Ciao

[SebNan]

Nel mio file excel, la colonna J è una colonna NOTE che contiene diverse indicazioni (es. c.a. dott. rossi, ufficio amministrativo, 2 piano 06/65214789625). La colonna J nell'esempio è formato da 64 caratteri, ma il mio sistema ne acquisisce solo 40 di caratteri, quindi tutto ciò che eccede i 40 dovrei spostarlo nella colonna L (anch'essa di 40 caratteri) per inserirlo in un secondo campo note.
Inoltre dovrei inserire nella colonna K la lunghezza dei caratteri contenuti nella colonna J e la formattazione condizionale nel caso in cui K sia maggiore di 40.
Anche nella colonna M dovrei inserire il numero dei caratteri contenuti nella colonna L e la formattazione condizionale nel caso in cui L superi i 40 caratteri.

Spero di essere stato chiaro

Grazie 1000 e buona giornata

[ninai]

ciao
ma la mia formula l'hai provata????

continuo a credere che faccia quello che chiedi, forse con qualche adattamento.
Eventualmente allega un file coerente con il problema

[SebNan]

Ciao Ninai, le tue formule funzionano; infatti le avevo già inserite con il registratore di macro (come riporto di seguito), il problema è che purtroppo se il file contiene una sola riga va in errore, quindi vorrei trovare il modo per inserire tali comandi in un ciclo IF o FOR in modo di fargli eseguire il ciclo finché non trova righe vuote nella colonna "A". Potreste darmi qualche suggerimento in merito.
Grazie 1000 e a presto

'Range("H3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 3) = "X"
ActiveCell.Offset(0, 4) = "X"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
Range("K3").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("L3").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-2],41,99)"
Range("L3").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

[Anthony47]

Non hai pubblicato un file di esempio, ma mi pare che i tuoi dati comincino da H3 verso il basso, e tu voglia inserire formule per tutta l' altezza dell' elenco.
Per questo scopo suggerisco:

Codice: Seleziona tutto

Sub fullform()
Dim LastJ As Long
'
LastJ = Cells(Rows.Count, "J").End(xlUp).Row
    Range("K3:L3").Resize(Rows.Count - 4).ClearContents
    Range("K3").FormulaR1C1 = "=LEN(RC[-1])"
    Range("L3").FormulaR1C1 = "=MID(RC[-2],41,99)"
    If LastJ > 3 Then Range("K3:L3").Copy Destination:=Range(Range("K4"), Range("L" & LastJ))
End Sub

Ciao

[SebNan]

Ciao Ancthony, esattamente il mio file parte da H3 verso il basso. Appena provo lo script vi do riscontro. ma come faccio a caricare un file, non trovo il comando per allegare...
Grazie e a dopo

[ricky53]

Ciao,
per sapere come allegare un file: leggi QUI

Io ti consiglio File Dropper