Joseph Sanchez

Creo que esto soluciona tu problema 1) Abre excel 2) preciona alt + F11 3) Selecciona tu con clip secundario 4) Insertar modulo 5) Pega este código Regresa a excel habilita la ficha programador y lo ejecutas desde allí Sub ajustar() Dim fila, Final...

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) =...

Si se puede, una posible solución seria usando código vba Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") = 2 Then Range("A1").Interior.ColorIndex = 15 Else Range("A1").Interior.ColorIndex = 3 End If End Sub para poder hecer que...

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

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,...

ListBox1.List(a, 2) = Hoja2.Range("C" & i) Después de la línea donde no te muestra nada debes poner esto te mostrala lo de la columna "C" Esta línea la debes agregar en en userform al activarlo o inicialice With ListBox1 .ColumnCount = 3 'esto es la...

Este código soluciona tu problema Private Sub CommandButton1_Click() a = Range("V4").Value Select Case a Case 1 To 10 ActiveSheet.Range("U4").Value = "ALERTA" Range("V4").Select Case 11 To 20 ActiveSheet.Range("U4").Value = "AGOTANDOSE"...