Enrique Bernal

Este sería el código, para mi ejemplo dirección 1 está en A y dirección dos esta en la columna B: Sub concatena() Dim Comprobar, Contador Comprobar = True: Contador = 1 ' Inicializa variables. Do ' Bucle externo. Do While Contador < 65000 ' Bucle...

Si lo que buscas son valores lo puedes hacer con sumar. Si(), puedes tener problemas con buscarv() ya que esta fórmula condiona toda la celda, es decir, incluso condicional el formato de la celda, para verificar la coincidencia, en cambio Sumar. Si()...

Estos serían los códigos: Sub Guarda() Sheets("Hoja1").select Rows("2:2").Select Selection.Copy Sheets("Hoja2").Select k = Range("F" & Cells.Rows.Count).End(xlUp).Row + 1 Rows(k).Select ActiveSheet.Paste Sheets("hoja1").Select...

Imagino que lo que indicas como fecha te refieres al día de hoy, por lo que la fórmula´en B1 sería =si(A1="","", hoy()). Para el caso de C; DE y E, dime como defines el valor de cada una de estas celdas. Pensaría yo que simplemente las escribes...

Es solo cuestión de indicar la dirección de la celda, para tu ejemplo el código sería: Sub Limpia() Sheets("Hoja1"). Range("A1"). ClearContents Sheets("Hoja2"). Range("B2"). ClearContents Sheets("Hoja3"). Range("C3"). ClearContents End sub Y así con...

Pega estos códigos en un modulo vba y listo, si quieres probarlo hoy cambia el 1 por 10 y abre el archivo te mostrará el mensaje que necesitas. Sub Auto_Open() Range("A65000").Value = "=DAY(NOW())" If Range("A65000").Value = 1 Then MsgBox ("Hoy es el...

Private Sub Workbook_Deactivate() '*** HABILITA LOS MENÚS AL CAMBIAR DE VENTANA *** Application.CommandBars("Format").Enabled = False Application.CommandBars("tools").Enabled = False Application.CommandBars("file").Enabled = False...

Este código hace lo que necesitas. Sub Guarda() Rows("2:2").Select Selection.Copy Sheets("Historial semanal").Select k = Range("F" & Cells.Rows.Count).End(xlUp).Row + 1 Rows(k).Select ActiveSheet.Paste Sheets("Datos Semanales").Select...

Lo que podrías hacer es bloquear la parte de la hoja que no deseas que modifiquen los operarios. O crear un formulario que solo llene la parte del operario y que este formulario alimente a una base que mantiene junta toda la información, para esto...

Los códigos serían Sub Actualiza() ActiveWorkbook.RefreshAll End Sub Un consejo, cuando tengas estas dudas puedes acudir a la grabadora de macros, y así ver los códigos que necesites.