Moderatori: Anthony47, Flash30005
Sub CopiaTitoli()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RigaF = 1 To UR
PS = 0
Titolo = ""
Frase = ""
Ini = 0
LFrase = 0
Codice = 0
Frase = Sheets("Foglio1").Range("B" & RigaF).Value
LFrase = Len(Frase)
For CT = 1 To LFrase
If Mid(Frase, CT + Codice, 1) = Chr(10) Then
PS = PS + 1
Ini = CT
Codice = CT
End If
If PS = 1 Then
Titolo = Mid(Frase, Ini, CT + 1)
End If
Next CT
Sheets("Foglio1").Range("A" & RigaF).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Titolo
Next RigaF
End Sub
=STRINGA.ESTRAI(B2;RICERCA(CODICE.CARATT(10);B2)
=STRINGA.ESTRAI(B2;LUNGHEZZA(C2)+2;RICERCA(CODICE.CARATT(10);B2;LUNGHEZZA(C2)+2)-LUNGHEZZA(C2)-2)
=SINISTRA(B2;RICERCA(CODICE.CARATT(10);B2)-1)
Gattuccio0 ha scritto:Mi togliete una curiosità? ....
Ma uno come me che proviene dalla ocnoscenza dei programmi di grafica...come potrebbe avvicinarsi per esempio ad Excel, capendo di più tutto ciò che è VBA o macro?
...
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Ordinare colonne sulla stessa riga se stesso contenuto Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
Importare immagini a seconda del testo in una cella Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 30 ospiti