Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

copia e incolla in riga evidenziata

  1. #1
    MARVIN55 non è in linea Novello
    Post
    36
    Like Inviati  
    0
    Like Ricevuti  
    0
    buon di a tutti
    con la macro di cui sotto selezionando la cella mi evidenzia la riga ,cosa devo aggiungere alla macro affinche' possa quest'ultima essere copiata in un'altra colonna.
     
     
     
    Private m_LastCell As Range
    Private m_LastSheet As Object
    Sub MarkCross(rng As Range, Sht As Object)
    Dim ScrUp_old As Boolean
    'Verifico che sia selezionata solo una cella
    If rng.Cells.Count = 1 Then
    ScrUp_old = Application.ScreenUpdating
    Application.ScreenUpdating = False
    'Tolgo precedenti evidenziazioni
    Sht.Cells.Select
    Selection.Interior.ColorIndex = xlNone
    'Evidenzio la riga
    Sht.Rows(rng.Row).Select
    With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    'Evidenzio la colonna
    'Sht.Columns(rng.Column).Select
    'With Selection.Interior
    '.ColorIndex = 6
    '.Pattern = xlSolid
    'End With
    End If
    rng.Select
    Application.ScreenUpdating = ScrUp_old
    End Sub
     
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If m_LastCell Is Nothing And m_LastSheet Is Nothing Then
    Set m_LastCell = Target
    Set m_LastSheet = Sh
    MarkCross Target, Sh
    Set m_LastCell = Nothing
    Set m_LastSheet = Nothing
    End If
    End Sub
    
    premesso che il tutto e abbastanza lento ,
    il mio problema consiste che avendo in un un foglio xls quasi cento colonne quando clicco su una cella mi si evidenzia l'intera riga e in essa possa copiare quest'ultima in un'altra riga o colonna.
    grazie marvin

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Post
    7,756
    Like Inviati  
    0
    Like Ricevuti  
    3
    Ciao

    Vuoi copiare una riga in una colonna?
    se si esiste solo un modo Copia e incolla speciale ->Trasponi

    Scusa ma tutto quel codice per colorare una riga?
    Ciao
    ℹ️ Leggi di più su dragone bianco ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Copia e incolla valori sull’ultima riga vuota
    Da AlexM29 nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 29-12-2020, 06:25
  2. Risposte: 5
    Ultimo Post: 20-05-2015, 19:31
  3. riga evidenziata che scorre
    Da frugo nel forum Microsoft Access
    Risposte: 10
    Ultimo Post: 25-05-2012, 20:25
  4. copia e incolla
    Da ceklo nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 23-06-2010, 17:56
  5. Copia incolla
    Da keanurives nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 22-02-2005, 18:26