Copia e Trasponi celle alternate

Question

Buonasera a tutti,

avrei necessità di copiare e trasporre le stesse nel range e53.

questo e quello che ho messo insieme ma non riesco ad andare avanti, mi copia solo l'ultima cella.

Come posso fare per copiare le 31 celle (trasposte)?

Dim lColumnCount As Long  
    For lColumnCount = 5 To 190 Step 6  
        Sheets("LOGOPER").Cells(50, lColumnCount).Select  

        With Selection.Interior  
            .Color = 65535  
        End With  
   Next lColumnCount  

Grazie per la cortese attenzione.

Answer 1

Ciao Danilo,

avrei necessità di copiare e trasporre le stesse nel range e53.

questo e quello che ho messo insieme ma non riesco ad andare avanti, mi copia solo l'ultima cella.

Come posso fare per copiare le 31 celle (trasposte)?

Dim lColumnCount As Long
For lColumnCount = 5 To 190 Step 6
Sheets("LOGOPER").Cells(50, lColumnCount).Select

With Selection.Interior
.Color = 65535
End With
Next lColumnCount

Grazie per la cortese attenzione.

Se ho capito la tua esigenza, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim SH As Worksheet 

Dim Rng As Range 

Dim lColumnCount As Long 

Dim iCtr As Long 

Const sFoglio As String = "**LOGOPER**" 

Const sCella\_Destinazione As String = "**E53**" 

Set SH = ThisWorkbook.Sheets(sFoglio) 

With SH 

    For lColumnCount = 5 To 190 Step 6 

        iCtr = iCtr + 1 

        With .Cells(50, lColumnCount) 

            .Interior.Color = 65535 

            If Rng Is Nothing Then 

                Set Rng = .Item(1) 

            Else 

                Set Rng = Union(Rng, .Item(1)) 

            End If 

        End With 

    Next lColumnCount 

    Rng.Copy 

    .Range(sCella\_Destinazione).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, \_ 

    SkipBlanks:=False, Transpose:=True 

End With 

Application.CutCopyMode = False 

End Sub

'<<========

Potresti scaricare il mio file di prova Danilo20210903.xlsm

===

Regards,

Norman

Answer 2

Ciao Danilo,

Buonasera Norman,

si è esattamente ciò di cui avevo bisogno, pregievole come sempre.

Ti ringrazio tanto per la cortese attenzione.

:-)

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Buonasera Norman,

si è esattamente ciò di cui avevo bisogno, pregievole come sempre.

Ti ringrazio tanto per la cortese attenzione.

:-)