Copia se soddisfatta Condizione

Option Explicit '   Obbliga a definire tutte le Variabili e le Costanti

Sub Trasferisci()                                       '   Nome del Codice VBA
Application.ScreenUpdating = False                      '   Impedisce il refresh durante l'esecuzione
Dim URc As Long, URp As Long, x As Long, Rgx As Long    '   Definisce le Variabili Long
Const Dts As String = "DataSet"                         '   Definisce la Costante Dts
Const Rpr As String = "Report"                          '   Definisce la Costante Rpr

    Sheets(Rpr).Select          '   Seleziona il Foglio di lavoro Report
        With Worksheets(Dts)    '   With si riferisce ad un oggetto, in questo caso al Foglio di lavoro DataSet
            Cells.Clear         '   Cancella tutto, Record e Formati, nel Foglio di lavoro attivo
    URc = .Range("A" & Rows.Count).End(xlUp).Row    '   Rende la riga nella quale riside l'ultimo Record nel Foglio di lavoro DataSet
        For x = 1 To URc							'	Definisce un Ciclo partendo dalla Riga 1 all'ultima Riga nel Foglio di lavoro DataSet 
            Rgx = 1									'	Ho utilizzato Rgx come variabile di comodo
            If .Cells(x, 1) <> "" Then				'	Controlla che nella Colonna "A" della Riga "x" del Foglio di lavoro DataSet contenga un Valore
                If .Cells(x, 3) = "Illuminazione" Then	'	Se nella Cella "C" della riga controllata da "x" ci sia la descrizione Illuminazione
                    URp = Range("B" & Rows.Count).End(xlUp).Row		'	Rende la riga nella quale riside l'ultimo Record nel Foglio di lavoro Report	
                    If URp = 1 Then URp = -1		'	Nel caso in cui la prima Riga sia la Riga 1 allora Urp assume il valore di -1
                    Rgx = Rgx + 1					'	Rgx viene incrementata di una unità quando ho ritenuto ciò sia necessario	
                        Range(.Cells(x, 1), .Cells(x, 2)).Copy Cells(URp + Rgx, 1)	'	Copia i valori delle Colonne "A:B" di "DataSet" nella prima Riga libera di "Report"
                        Cells(URp + Rgx, 3).Value = .Cells(x, 4).Value				'	Copia i valori della Colonna "D" di "DataSet" nella Colonna "C" di "Report"
                        Cells(URp + Rgx, 4).Value = "-"								'	Scrive il valore "-" di "DataSet" nella Colonna "D" di "Report"
                        Cells(URp + Rgx, 5).Value = .Cells(x, 3).Value				'	Copia i valori della Colonna "C" di "DataSet" nella Colonna "E" di "Report"
                            Rgx = Rgx + 1			'	Rgx viene incrementata di una unità	
                        Cells(URp + Rgx, 2) = .Cells(x, 2)							'	Copia i valori delle Colonne "A:B" di "DataSet" nella seconda Riga libera di "Report"
                        Cells(URp + Rgx, 3).Value = .Cells(x, 5).Value				'	Copia i valori della Colonna "E" di "DataSet" nella Colonna "C" di "Report"
                        Cells(URp + Rgx, 4).Value = "-"								'	Scrive il valore "-" di "DataSet" nella Colonna "D" di "Report"
                        Cells(URp + Rgx, 5).Value = .Cells(x, 3).Value				'	Copia i valori della Colonna "C" di "DataSet" nella Colonna "E" di "Report"
                    
                    Range(Cells(URp + Rgx - 1, 1), Cells(URp + Rgx, 1)).Select		'	Seleziona le righe nelle quali applicare la Funziione "Celle unite"
                        With Selection												'	Inizio della Procedura per unire le Celle della Colonna "A"
                            .HorizontalAlignment = xlCenter
                            .WrapText = False
                            .Orientation = 0
                            .AddIndent = False
                            .IndentLevel = 0
                            .ShrinkToFit = False
                            .ReadingOrder = xlContext
                            .MergeCells = False
                        End With
                            Selection.Merge
                        With Selection
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                            .MergeCells = True
                        End With												'	Fine della Procedura per unire le Celle della Colonna "A"
                Else			'	Se nella Cella "C" della riga controllata da "x" ci sia una descrizione diversa da Illuminazione allora ...
                    URp = Range("B" & Rows.Count).End(xlUp).Row					'	Rende la riga nella quale riside l'ultimo Record nel Foglio di lavoro Report
                    If URp = 1 Then URp = -1	'	Nel caso in cui la prima Riga sia la Riga 1 allora Urp assume il valore di -1 ( non dovrebbe mai accadere però ...)
                    Rgx = Rgx + 1				'	Rgx viene incrementata di una unità
                    
                        Range(.Cells(x, 1), .Cells(x, 3)).Copy Cells(URp + Rgx, 1)	'	Copia i valori delle Colonne "A:C" di "DataSet" nella prima Riga libera di "Report"
                        Cells(URp + Rgx, 4).Value = "-"								'	Scrive il valore "-" di "DataSet" nella Colonna "D" di "Report"
                        Cells(URp + Rgx, 5).Value = .Cells(x, 4).Value				'	Copia i valori della Colonna "D" di "DataSet" nella Colonna "E" di "Report"
                        Cells(URp + Rgx, 6).Value = "-"								'	Scrive il valore "-" di "DataSet" nella Colonna "F" di "Report"
                        Cells(URp + Rgx, 7).Value = .Cells(x, 5).Value				'	Copia i valori della Colonna "E" di "DataSet" nella Colonna "G" di "Report"
                    Rgx = Rgx + 1				'	Rgx viene incrementata di una unità
                       Cells(URp + Rgx, 2).Value = .Cells(x, 2).Value				'	Copia i valori della Colonna "B" di "DataSet" nella Colonna "B" di "Report"
                       Cells(URp + Rgx, 3).Value = .Cells(x, 4).Value				'	Copia i valori della Colonna "E" di "DataSet" nella Colonna "C" di "Report"
                    Rgx = Rgx + 1				'	Rgx viene incrementata di una unità
                       Cells(URp + Rgx, 2).Value = .Cells(x, 2).Value				'	Copia i valori della Colonna "B" di "DataSet" nella Colonna "B" di "Report"
                       Cells(URp + Rgx, 3).Value = .Cells(x, 5).Value				'	Copia i valori della Colonna "E" di "DataSet" nella Colonna "C" di "Report"

                    Range(Cells(URp + Rgx, 1), Cells(URp + Rgx - 2, 1)).Select		'	Seleziona le righe nelle quali applicare la Funziione "Celle unite"
                With Selection									'	Inizio della Procedura per unire le Celle della Colonna "A"
                    .HorizontalAlignment = xlCenter
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
                    Selection.Merge
                With Selection
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .MergeCells = True
                End With									'	Fine della Procedura per unire le Celle della Colonna "A"
                End If					'	Termina la seconda condizione If
            End If						'	Termina la prima condizione If
        Next x							'	Incrementa il Ciclo For x
    End With							'	Termina l'attribuzione di Worksheets(Dts)
        Cells(1, 2).Select				'	Pone il Cursore in Cella "B1"
Application.ScreenUpdating = True		'   Ripristina il refresh durante l'esecuzione
End Sub									'	Termina il Codice VBA