Gentilmente 2 Macro Filtra e Copia e Inserimento Righe

[Francesco6918]

Un saluto a tutti gli amici del forum , per facilitarmi il lavoro ho abbandonato per il momento il post precedente (Modificare Macro indice massimo 2 ambi ) vi chiedo una gentilezza avrei bisogno di 2 macro, la 1° Macro e copiare le celle filtrate (VUOTE) del foglio1 e copiarle nel foglio2, mi spiego nella colonna Y6 o applicato un filtro, filtrando le celle vuote vorrei copiare tutte le celle visibili solo i valori (Potrebbero contenere formule) a partire dalla colonna X7:AF nel foglio2 a partire colonna X7:F.
2° Macro nella colonna Y4 ci sono numeri da 1 a 6 che si ripetono vorrei inserire 3 righe sotto ogni qual volta e presente il numero 6, vi allego i 2 file

Grazie

Saluti a tutti

http://www.filedropper.com/filtraecopia
http://www.filedropper.com/inserimento3righe

[Anthony47]

Per quanto riguarda la prima macro, puoi crearla in proprio utilizzando il registratore di macro. Per i primi suggerimenti e le istruzioni su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

Per la seconda, l'inserimento delle righe, faccio prima a darti il codice completo:

Codice: Seleziona tutto

Sub Insert3()
Dim myR As Long, I As Long
'
myR = Cells(Rows.Count, "Y").End(xlUp).Row
For I = myR To 4 Step -1
    If Cells(I - 1, "Y").Value = 6 And Cells(I, "Y") <> "" Then
        Cells(I, "Y").Resize(3, 1).EntireRow.Insert shift:=xlDown
    End If
Next I
End Sub

Ciao

[Francesco6918]

Ciao Anthony47 grazie gentilissimo.

Saluti