none
STO PROVANDO A SCRIVERE UNA MACRO IN EXCEL. VORREI CREARE UNA ,ACRO ATTRAVRSO CUI ANDANDO A SCRIVER UN DATO DI INPUT MI VADA A LEGGERE I DATI PRESENTI IN COLONA 1 E MI COPI NEL FOGLIO 2 I LE RIGHE CORRISPONDENTI. COME POSSO PROCEDERE? ALLEGO GLI SCREEN.

    Domanda

  • STO PROVANDO A SCRIVERE UNA MACRO IN EXCEL. VORREI CREARE UNA ,ACRO ATTRAVRSO CUI ANDANDO A SCRIVER UN DATO DI INPUT MI VADA A LEGGERE I DATI PRESENTI IN COLONA 1 E MI COPI NEL FOGLIO 2 I LE RIGHE CORRISPONDENTI.

    ALLEGO LA MACRO 

    Sub CercaTesto()

    Dim X As String

    Dim I As Integer

    Dim k As Boolean

    k = False

    X = InputBox("Cosa vuoi cercare?")

    For I = 1 To 96

        If Cells(I, 1) = X Then

        Selection.Copy

     Sheets("Foglio1").Range("A1:Z10").Copy Sheets("Foglio2").Range("A1:Z10")

        Sheets("Foglio2").Select

        End If

    Next I

        If trovato = False Then

            MsgBox "Testo non trovato!", vbExclamation

        End If

    End Sub

    VI RINGRAZIO.

    mercoledì 2 maggio 2018 16:37

Tutte le risposte

  • 1) nei forum non si scrive in maiuscolo, equivale ad urlare ed indispone chi ti legge

    2) hai sbagliato sezione, segnalo per spostamento

    mercoledì 2 maggio 2018 17:32
  • Puoi provare con la funzione Found da utilizzare sul Range. L'esempio sotto cerca il valore "X" nella colonna A e ogni volta che trova un'occorrenza, copia l'intera riga sul Foglio2.

    Dim found As Range
    Dim firstAddress As String
    Dim i As Integer
    
    i=1
    With ThisWorkbook.Sheets("Foglio1").Range("A:A")
            Set found = .Find(X, LookIn:=xlValues)
            If Not found Is Nothing Then
                firstAddress = found.Address
                Do
                    ThisWorkbook.Sheets("Foglio1").Rows(found.Row).Copy ThisWorkbook.Sheets("Foglio2").Rows(i)
                    i = i + 1
                    Set found = .FindNext(found)
                Loop While Not found Is Nothing And found.Address <> firstAddress
            End If
    End With

    • Proposto come risposta Stefano Fox giovedì 6 settembre 2018 12:52
    giovedì 6 settembre 2018 12:52