Moderatori: Anthony47, Flash30005
ho provato con il codice di seguito riportato ma mi restituisce sempre il valore 1
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
Torna a Applicazioni Office Windows
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Lo scanner della Pixma TS 5150 non parte Autore: wallace&gromit |
Forum: Assistenza Hardware Risposte: 9 |
Visitano il forum: Nessuno e 15 ospiti