Jump to content

Macro escribir una palabra en la primera celda libre de una columna en otra hoja


Maria_80

Recommended Posts

Hola,

Adjunto un ejemplo de un excel con dos hojas. La primera tiene un listado de ciudades, se trata de que al filtrar por "X" ciudad en caso de que no existan datos en el filtro, escriba la palabra "DAR DE ALTA" en la primera celda libre de la primera columna de la hoja2 (info).

Tengo toda la primera parte, la del filtro, pero no he sabido continuar con la segunda.

Muchas gracias!

 

ejemplo_compilar.xlsm

Link to comment
Share on other sites

Sub control()
Dim Valor As String

Valor = "BADAJOZ"
Set ciudad = Sheets("control").Columns("A").Find(Valor, , , xlWhole)
If ciudad Is Nothing Then
   With Sheets("info")
      .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1) = "DAR DE ALTA"
   End With
Else
   MsgBox Valor & " YA EXISTE"
End If

End Sub

 

Link to comment
Share on other sites

27 minutes ago, Antoni said:

Sub control()
Dim Valor As String

Valor = "BADAJOZ"
Set ciudad = Sheets("control").Columns("A").Find(Valor, , , xlWhole)
If ciudad Is Nothing Then
   With Sheets("info")
      .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1) = "DAR DE ALTA"
   End With
Else
   MsgBox Valor & " YA EXISTE"
End If

End Sub

 

Perfecto, como siempre. Pude adaptarlo sin problemas. Gracias!!!

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy