VBA MACRO: Estendere selezione a destra, copiare solo valori in basso

raffaele1953, 15/05/2018 13.12:

---

Il Tuo files pesa oltre 1mg. Non capisco cosa serva la colonna A?
Selezioni la colonna B. Formattazione condizionale =E(B1<>"";GIORNO.SETTIMANA(B1;2)=7)
Pertanto nel VBA, la riga della Formattazione non esiste più (inoltre VBA solo per le colonne A/Z)

vb

Sub Inserisci_Righe()
Dim rig As Long
rig = ActiveCell.Row
Range(Cells(rig, 1), Cells(rig, 26)).Copy
Range(Cells(rig + 1, 1), Cells(rig + 1, 26)).Insert Shift:=xlDown
Range(Cells(rig + 1, 1), Cells(rig + 1, 26)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Ps. Tutto questo per dei turni, noto un particolare sulle colonne C/D/E/F, dopo aver assegnato i turni alla domenica=31-12-2017
Sulle righe sotto ci sono dei vari =cella(), mà non intravedo il senso logico sembrano messe a casaccio.
Oppure il Vostro fabbisogno, fà si che quando si cambia turno esiste una procedura giusta?

---