Carga de datos en formulario Excel para editar

No se si debo ingresarles el código que tengo para el Botón editar o el botón Ingresar.

Sí, por favor, pon todo tu código.

O mejor aún, si puedes compartir tu archivo en google drive, comparte el enlace para cualquiera, copia el enlace y pega aquí.

Si tu archivo tiene información confidencial, reemplaza por datos genéricos.

Explica en alguna hoja brevemente el funcionamiento de tu formulario y en dónde tienes problemas, es decir, qué realizas en el formulario y cuál resultado esperas.

Hola, muchas gracias por la respuesta de ambos. La de Elsa no la entiendo bien y no se dónde poner el código y como modificarlo, pero entiendo que ella tampoco tiene el código para ayudarme, así que subo el archivo a google drive para ver si me pueden ayudar.

https://docs.google.com/spreadsheets/d/1NJe6BRDpA8IYG5G3bh9X_Zyy39ON481hk8p4HbaXg90/edit?usp=sharing 

Muchas gracias nuevamente

Te envié una solicitud para poder descargar el archivo.

Nota: En el futuro, para insertar código aquí en el foro, puedes utilizar el icono para insertar código:

Después de presionar el icono, te abre un panel:

Ahí puedes pegar el código y después presionar OK.

El código quedará de esta manera:

Sub SearchForString()
'Por Dante Amor
  Dim wrd As Variant, arr As Variant
  Dim fnd As Range, cpy As Range, rng As Range
  Dim myPath As String, addr As String, sFile As String, sheetName As String
  Dim wb2 As Workbook
  Dim shd As Worksheet
  Application.ScreenUpdating = False
  arr = Array("transfer", "indicate", "water")    'populate the array for the outer loop
  sheetName = "Sheet1"                            'Source sheet
  Set shd = Sheets("Sheet2")                      'destination sheet
  With Application.FileDialog(msoFileDialogFolderPicker)    'To select the folder
    .Title = "Select Folder"
    .AllowMultiSelect = False
    If .Show <> -1 Then Exit Sub
    myPath = .SelectedItems(1)
  End With
  sFile = Dir(myPath & "\" & "*.xls*")
  Do While sFile <> ""
    If HasSheet(myPath, sFile, sheetName) Then                  'validates that sheet1 exists
      Set wb2 = Workbooks.Open(myPath & "\" & sFile)
      Set cpy = Nothing
      Set rng = wb2.Sheets(sheetName).Range("B:B")              'Set column B to search
      For Each wrd In arr                                       'loop each word in the array
        Set fnd = rng.Find(wrd, , xlValues, xlPart, , , False)  'locate first instance
        If Not fnd Is Nothing Then
          addr = fnd.Address                                    'record address of first find
          If cpy Is Nothing Then Set cpy = fnd.Offset(, 1)      'seed the cpy range object
          Do
            Set cpy = Union(cpy, fnd.Offset(, 1))               'build union
            Set fnd = rng.FindNext(after:=fnd)                  'look for another
          Loop While Not fnd Is Nothing And fnd.Address <> addr
        End If
      Next
      If Not cpy Is Nothing Then cpy.Copy shd.Range("A" & Rows.Count).End(3)(2)
      wb2.Close False
    End If
    sFile = Dir()
  Loop
  Application.ScreenUpdating = True
  MsgBox "All matching data has been copied."
End Sub
Function HasSheet(fPath As String, fName As String, sheetName As String)
  Dim f As String
  f = "'" & fPath & "\[" & fName & "]" & sheetName & "'!R1C1"
  HasSheet = Not IsError(Application.ExecuteExcel4Macro(f))
End Function

NOTA: El código que puse es solamente un ejemplo de cómo queda el código en el foro, no tiene que ver con la respuesta.

Hola Dante, se como subirlo, solo que me pediste que te pusiera el archivo en Google Drive.

No me llegó el mail de solicitud, a ver si ahora te lo deja bajar.

https://docs.google.com/spreadsheets/d/1NJe6BRDpA8IYG5G3bh9X_Zyy39ON481hk8p4HbaXg90/edit?usp=sharing 

Ya pude entrar al archivo, pero no trae las macros.

Solamente lo puedo descargar como excel.

O envíame tu archivo a mi correo:

[email protected]