Moderatori: Anthony47, Flash30005
Sub a()
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = 4 To LR
Cells((r - 3) * 4, "A") = Cells(r, "B")
Next
End Sub
Sub CC()
'macro by patel modificata
Range("C3").Resize(Rows.Count - 10, 1).ClearContents
Range(Range("A3"), Cells(Rows.Count, 1).End(xlUp)).Copy Range("C3")
'
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = 4 To LR
Cells((r - 3) * 4, "C") = Cells(r, "B")
Next
End Sub
Anthony47 ha scritto:Io ho una domanda: ma per ogni blocco di informazioni in colonna A c'e' il tempo "corretto" in colonna B, vero?
Sub falsifica()
Dim startRep As String, colDest As String, I As Long, J As Long
'
startRep = "B4" '<<< Inizio elenco sostituzioni
colDest = "C" '<<< Colonna col risultato
'
Columns(colDest).ClearContents '***Vedi Testo
'
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If IsDate(Left(Cells(I, 1), 8)) Then
Cells(I, colDest) = Range(startRep).Offset(J, 0)
J = J + 1
Else
Cells(I, colDest) = Cells(I, 1)
End If
Next I
End Sub
Torna a Applicazioni Office Windows
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Stabilire righe e colonne da mostrare a schermo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiungere e eliminare righe senza alterare i riferimenti de Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 4 |
cancella righe completamente vuote Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 7 ospiti