Excel e Visual Basic

  • FILE ALLEGATI:
  • Excel e Visual Basic (2012) di ANdre (Utente non iscritto) data: 21/09/2018 13:52:05 



    Buongiorno a tutti,

    avrei una domanda abbastanza veloce

    Come modificare lo script VB sotto per poter copiare solo alcune colonne (ad esempio B, C,d e L) dalle righe che contengono in testo specific, ad esempio "IN PROGRESS" righe nelle quali e' presente il termine

    Al momento sono in grado di copiare le righe che contengono quel termine in una determinate colonna ma non la selezione di colonne.

    Grazie anticipatamente!




     
    Sub BankMove()
    Const strTest = "IN PROGRESS"
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim NoRows As Long
    Dim DestNoRows As Long
    Dim I As Long
    Dim rngCells As Range
    Dim rngFind As Range
        
        Set wsSource = ActiveSheet
        
        NoRows = wsSource.Range("A65536").End(xlUp).Row
        DestNoRows = 1
        Set wsDest = ActiveWorkbook.Worksheets.Add
            
        For I = 1 To NoRows
        
            Set rngCells = wsSource.Range("T" & I & ":F" & I)
            
            If Not (rngCells.Find(strTest) Is Nothing) Then
                rngCells.EntireRow.Copy wsDest.Range("A" & DestNoRows)
                
                DestNoRows = DestNoRows + 1
            End If
        Next I
    End Sub
    
  • di Vecchio Frac (Moderatore) data: 24/09/2018 20:48:59 



    Bè devi ragionare sulla riga di codice:
    rngCells.EntireRow.Copy

    la quale attualmente copia l'intera riga appena trova la corrispondenza cercata.
    Sapendo che rngCells contiene la cella di riferimento... (occhio però che il testo viene cercato nel range F:T e non ci sono B C D)
  • torna su

Sostieni Excel VBA con una donazione! Con la tua donazione potrai contribuire al mantenimento del servizio.
Le donazioni sono eseguite con PayPal, il modo più facile, comodo e sicuro per pagare online.
Paypal accetta anche carta di credito o carte prepagate.