Ciao a tutti, sto facendo un semplice programmino che mi sta mandando un pochino in confusione...
Vorrei creare una macro che mi permetta di copiare solo le righe in cui nella colonna D scrivo "x" dal foglio1 al foglio2, mi potete aiutare??
Moderatori: Anthony47, Flash30005
Sub CreaOrdine()
Dim i As Integer
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Worksheets("Componenti stampo").Cells(Rows.Count, "Q").End(xlUp).Row
Set rng = Worksheets("Componenti stampo").Range("Q3:Q" & ur)
For Each cel In rng
lr = Worksheets("Ordine di acquisto").Cells(Rows.Count, "i").End(xlUp).Row
If cel.Value = "x" Then
For i = -16 To -9
Worksheets("Ordine di acquisto").Cells(lr + 1, i + 17).Value = cel.Offset(0, i).Value
Worksheets("Ordine di acquisto").Cells(lr + 1, "i").Value = "x"
Next i
End If
Next cel
End Sub
Sub CreaOrdine()
Dim i As Integer
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Worksheets("Componenti stampo").Cells(Rows.Count, "Q").End(xlUp).Row
Set rng = Worksheets("Componenti stampo").Range("Q3:Q" & ur)
Worksheets("Ordine di acquisto").Range("i8:i28").ClearContents
Worksheets("Ordine di acquisto").Range("a8:h28").ClearContents
For Each cel In rng
lr = Worksheets("Ordine di acquisto").Cells(Rows.Count, "i").End(xlUp).Row
If cel.Value = "x" Then
For i = -16 To -9
Worksheets("Ordine di acquisto").Cells(lr + 1, i + 17).Value = cel.Offset(0, i).Value
Worksheets("Ordine di acquisto").Cells(lr + 1, "i").Value = "x"
Next i
End If
Next cel
End Sub
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 45 ospiti