Moderatori: Anthony47, Flash30005
andrea tony ha scritto:Avrei bisogno di una macro comandata da un pulsante che prende i valori di alcune celle sull stessa riga (es B2:B8)
andrea tony ha scritto:e li sposta (sempre nello stesso foglio) da B15:B18
Sub Taglia_Incolla()
If Sheets("Foglio1").Range("B15").Value = "" Then
UR = 15
Else
UR = Sheets("Foglio1").Range("B15").End(xlDown).Row + 1
End If
Sheets("Foglio1").Range("B5:F5").Cut Destination:=Sheets("Foglio1").Range("B" & UR)
End Sub
Sub Taglia_Incolla2()
UR = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row + 1
If UR < 15 Then UR = 15
Sheets("Foglio1").Range("B5:F5").Cut Destination:=Sheets("Foglio1").Range("B" & UR)
End Sub
Sub Taglia_Incolla()
If Sheets("Foglio1").Range("B15").Value = "" Then '<<<<< controlla che la cella B15 è vuota, se si...
UR = 15 '<<<<<< fa assumera alla variabile UR il valore 15 (quindi scrivera nella riga 15)
Else '<<<<< altrimenti
UR = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row + 1 '<<<<< scriverà nella prima riga vuota
End If
Sheets("Foglio1").Range("B5:F5").Cut Destination:=Sheets("Foglio1").Range("B" & UR) '<<<< taglia le celle e le incolla nella prima riga disponibile
End Sub
Sub Taglia_Incolla2()
UR = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row + 1 '<<<< trova la prima riga vuota
If UR < 15 Then UR = 15 '<<<< se UR è minore di 15 UR assume il valore 15
Sheets("Foglio1").Range("B5:F5").Cut Destination:=Sheets("Foglio1").Range("B" & UR) '<<<< Taglia e incolla sulla prima riga disponibile o sulla riga 15
End Sub
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Formattzione valori con simbolo triangolini colorati Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 60 ospiti