Joseph Sanchez

Esta macro te hará una copia de cada una de la filas que tengas en tu hoja Sub Duplicar() Dim fila, Final, final2 As Integer For fila = 2 To 300000 If Hoja1.Cells(fila, 1) = "" Then Final = fila - 1 Exit For End If Next final2 = Final * 2 For fila =...

Excel en cada hoja de trabajo debe tener una celda activa, no se puede dejar de otra manera Si lo que quieres es que no pueden seleccional una celda en especifico Esto te podría ayudar Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

Esta macho hace lo que necesitas Private Sub CommandButton1_Click() Dim fila, colum, Final As Integer For fila = 2 To 10000 If Hoja1.Cells(fila, 1) = "" Then Final = fila - 1 Exit For End If Next For fila = 2 To Final If Hoja1.Cells(fila, 1) =...

Esto hace lo que pides, en la celda B1 se va a ir sumendo lo que coloques en la A1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("B1").Value = Range("B1").Value + Range("A1").Value Range("A1").Value = "" End Sub

https://drive.google.com/file/d/0B1UUB6fBagdmTHZTRlM0UUF6WDg/view?usp=sharing En este archivo tienes una macro que te sirve de ejemplo, si tienes dudas después de ver me avisas

En el editor de VBA selecciona la hoja con que estés trabajando y coloca esto Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1, A200") = "OK" Then Workbooks.Open "C:\facturas2016\MiFactura.xlsm" End If End Sub

De esta manera ocultamos la que tengan la letra n Private Sub CommandButton1_Click() Dim fila, final As Integer For fila = 2 To 1000 If Hoja1.Cells(fila, 1) = "" Then final = fila Exit For End If Next For fila = 1 To final If Hoja1.Cells(fila,...

Para abrir el otro userform lo haces de esta manera, pero también quieres que te pase unos datos y no se de donde los va a obtener el form que se va a abrir. Dime si es de una hoja o del primer form, en un textbox y si es en una hoja en que celda....

Ya se como hacerlo Label1 = Now

Me imagino que los datos estan en el boton de guardar If cbo1.Text = "" Then MsgBox "Falta completar informacion", vbCritical, "Falta informacion" cbo1.Text.SetFocus End If (Unload Me) debe aparcer al final del codigo para que lo ultimo que haga sea...