Ciao a tutti,
devo fare un ciclo
For R= 1 a 10 step +1
call dati (copia e memorizza dei dati in EA3)
vorrei fare in modo che ad ogni ciclo mi aumenti anche la colonna.
EB3
EC3
EJ3
fino ciclo
Moderatori: Anthony47, Flash30005
Public Sub m()
Dim lCol As Long
Dim lRiga As Long
For lCol = 1 To 10
lRiga = 3
Cells(lRiga, lCol).Value = _
"Riga" & lRiga & "Col" & lCol
Next
Next
End Sub
'Bari
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Range("DY3:DY902").Select
Selection.Copy
Range("EA3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Cagliari
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "2"
Range("H4").Select
Range("DY3:DY902").Select
Selection.Copy
Range("EB3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Firenze
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "3"
Range("H4").Select
Range("DY3:DY902").Select
Selection.Copy
Range("EC3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
For R= 1 a 10
'istruzioni per copia
Range("EA3").Offset(0,R-1).Select
'istruzioni per Incollare nella posizione selezionata
For colonna = 7 To 16
Range("B4:B8").Select
Selection.Copy
Cells(riga, col).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
col = col + 1
dit = dit + 1
Range("D1") = dit
Next colonna
End Sub
Sub scrivi()
riga = 3
col = 7
dit = 0
Range("D1") = dit
For colonna = 7 To 16
Range("B4:B8").Select
Selection.Copy
Cells(riga, col).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
col = col + 1
dit = dit + 1
Range("D1") = dit
Next colonna
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 31 ospiti