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

raffaele1953, 14/05/2018 14.50:

---

Dovrebbe essere..., però sarebbe meglio avere una riga master
Intendo, se la prima riga ci fosse solo la formattazione, copy ed inserisci quella riga. Dopo incolli i valori.... Sotto comunque vedi per 6 colonne + le due righe per la formattazione e dopo quella dei valori ed risparmi una riga VBA

vb

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

---

raffaele1953, 15/05/2018 00.00:

---

Di norma si allega un files d'esempio senza dati sensibili.
Per quanto hai richiesto, ho fatto il possibile senza vedere nulla. Vedendo le foto hai ragione nell'inserire righe intere.
Il codice non cambia, invece di Range(Cells(rig, 1), Cells(rig, 6)).
Diventa Rows(rig).copy e dopo le altre due che copiano formattazione e dati

---

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?

---

sputnik_r, 15/05/2018 16.08:

---

avevo già provato io a includere più colonne a dx...

ma così facendo mi fa scalare le formule a dx che cos' facendo non funzionano più...

In ogni giorno immesso/aggiunto/duplicato viene immesso un nuovo assente per lo stesso giorno..

quelle formule calcolano:

1à se la data è passata rispetto oggi

2 se mancano meno di 4 gg (sostituzione urgente)

3 sostituzione da farsi tra più di 4 giorni "sostituzione da tenere a mente" per il futuro

Inoltre serve l'allarme solo se il sostituto non è ancora stato trovato.

E un diverso alert se è passato ma è rimasto scoperto..per sapere quanti scoperti in un mese/anno ecc


non essendo capace a includere tutte queste variabili in una sola formula/cella mi sono aggiustato con quell'espediente attribuendo dei numeri per ogni "VERO o FALSO" restituito dalla formula

---

raffaele1953, 15/05/2018 18.56:

---

MSG_1>>>copiare solo i valori e la formattazione e non le formule
OK, fatto con selezione di 6 colonne

MSG_6>>>no...non ci siamo ancora...
OK, fatto con selezione delle colonne A/Z

MSG_13>>>ma così facendo mi fa scalare le formule a dx
Ridesideri le formule??? Che se non erro non ti servono (casomai solo Formattazione Condizionale)

MSG_14>>>AVVISI!!!
Formula che non hai inserito nell'allegato

Mi spieghi per quale motivo decidi d'aggiungere una riga?
L'allegato dimostra solo cosa sia una tabella. Prova aggiungere righe e nota cosa fà e nota quanto pesa...
Se poi perdi 5 minuti a spiegare per bene l'uso che desideri farne in italianesco, forse qualcuno Ti capisce e propone una soluzione.
Intendo passo-passo, ex mercoledì-07-03-2018 manca Roby, in K metti un paio di nomi e quando in L , avrai deciso il nome cosa dovrà succedere?

---

sputnik_r, 15/05/2018 20.24:

---

Meglio di come lo spiego in questa immagine non so come spiegarlo... spero di essere riuscito a spiegarmi.

---

raffaele1953, 15/05/2018 21.37:

---

A spiegarsi meglio, si ottengono vantaggi sia io che Tu
Questa fà un piccolo controllo (sulle colonne J ed M, se non sono scritte non fà nulla)
Nel VBA ci sono alcune spiegazioni, se il controllo colonna M non lo vuoi, a destra c'è la riga solo per J. Prova se va bene

vb

Sub Inserisci_Righe()
Dim rig As Long
rig = ActiveCell.Row
'controllo se sono scritte
If Cells(rig, 10) <> "" And Cells(rig, 13) <> "" Then ' oppure If Cells(rig, 10) <> "" Then'non controlla M
Range(Cells(rig + 1, 1), Cells(rig + 1, 26)).Insert Shift:=xlDown
Range(Cells(rig, 1), Cells(rig, 2)).Copy 'solo la data, oppure anche i turni Range(Cells(rig, 1), Cells(rig, 8)).Copy
Cells(rig + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'ora le colonne N/T
Range(Cells(rig, 14), Cells(rig, 20)).Copy
Cells(rig + 1, 14).PasteSpecial 'comprese le formule
Else
MsgBox "non posso aggiungere"
End If
End Sub

---

raffaele1953, 16/05/2018 12.14:

---

'oppure anche i turni
Range(Cells(rig, 1), Cells(rig, 8)).Copy ...oppure... Range(Cells(rig, 1), Cells(rig, 9)).Copy

---

sputnik_r, 16/05/2018 17.37:

---

così:

Cells(rig + 1, 10).Select

Ora manca solo che cancelli.

---