Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Suddividere il testo in colonna F con macro

Ultimo Aggiornamento: 02/06/2017 21:08
Post: 95
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 43
Utente Junior
2003
OFFLINE
02/06/2017 17:52

Buona Venerdi a tutti.Allego il foglio cartel3.xls.Nella colonna
F devo dividere il contenuto della cella e porlo nella cella G
con una macro.Ho fatto manualmente il foglio2 per farvi vedere
il risultato che vorrei ottenere.Grazie anticipatamente Matteo
Post: 1.371
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
02/06/2017 18:41

Ciao Matteo

Perché ogni tanto non provi a tirare giù qualcosa anche di non funzionante??


Comunque:
Sub CopiaRecords()
Set wkF = Worksheets("foglio1")
Set wkT = Worksheets("foglio2")
wkT.Cells.ClearContents
lr = wkF.Range("A" & Rows.Count).End(xlUp).Row
lr1 = wkF.Range("F" & Rows.Count).End(xlUp).Row
mArr = wkF.Range("a1:f" & Application.WorksheetFunction.Max(lr, lr1))
For i = 1 To UBound(mArr)
    For j = 1 To 6
        If Not IsEmpty(mArr(i, j)) Then
            wkT.Cells(i, j) = mArr(i, j)
        Else
            wkT.Cells(i - 1, 7) = mArr(i, 6)
            Exit For
        End If
    Next
Next
End Sub
sempre che ci siano max 2 righe per ciascun record e le colonne siano 6.

Inserisci il dimensionamento delle variabili e una gestione di errori.


saluti


[Modificato da dodo47 02/06/2017 20:02]
Domenico
Win 10 - Excel 2016
Post: 95
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 43
Utente Junior
2003
OFFLINE
02/06/2017 21:08

Giusto riscontro
Ottima macro. Ringrazio Dodo per il codice. Sto imparando piano piano
a usare Vba grazie al Forum. Non riesco proprio senza il vostro aiuto
ma mi sto impegnando. [SM=x423017] Dodo
Vota: 15MediaObject5,0013 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:18. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com