Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2098
    Nem világos, hogy a Word-ben lévő szöveget keresed-e az Excelben.
    A makróban megadtam a keresett_szoveg értékét, annak a sorát jelöli ki a makró.

    Sub Valami()
    Dim sor As Integer, keresett_szoveg As String

    keresett_szoveg = "Viki"
    sor = Cells.Find(What:=keresett_szoveg, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Row
    Range("A" & sor).Select
    Range(Selection, Selection.End(xlToRight)).Copy
    End Sub