Jonathan Saul

Tengo esta macro Sub ValoresUnicos() Dim listaOrigen As Range On Error Resume Next Set listaOrigen = Application.InputBox _ (Prompt:="Rango de datos origen:", Title:="Seleccionar rango", Type:=8) listaOrigen.AdvancedFilter _ Action:=xlFilterCopy,...

Si en una base de datos tengo el numero 5 quiero que todo lo que esta en esa celda en otra hoja lo repita 5 veces

Tengo una base que viene de una consulta de SQL lo que manda es la casilla de folio pero quiero que en otra hoja me repita toda la información la cantidad de veces que lo va repetir sera el numero de vacantes en la imagen encierro la cantidad que se...

En mi formulario al ingresar el siguiente producto bloque varias textbox como hago para que estas ya no se repitan en la base

Tengo esta macro: Private Sub AGREGAR_Click() Dim fila As Integer fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend If IdTienda.Value = "" Then MsgBox "Error, El Campo IdTienda es Obligatorio" Else ActiveSheet.Cells(fila, 1) = IdTienda.Text...

Tengo este código dentro de una macro y de un formulario:} REPETIR = "3" ActiveSheet.Cells(fila, 1).Select Selection.Copy Range(Selection, Selection.End(xlDown)).Select For q = 1 To REPETIR ActiveSheet.Paste Range("A65000").End(xlUp).Offset(1,...

Private Sub AGREGAR_Click() ActiveSheet.Cells(2, 1).Select Selection.EntireRow.Insert ActiveSheet.Cells(2, 1) = IdTienda.Text ActiveSheet.Cells(2, 10) = Semana.Text ActiveSheet.Cells(2, 4) = NombreDemo.Text ActiveSheet.Cells(2, 18) = Producto1.Text...

Me manda este error me pueden ayudar ya que estoy creando mi primer formulario

Tengo esta macro la captura si cambia de registro hacia abajo pero que me falta para que la validación vaya cambiando conforme al registro de la macro reporte Sub REPORTE() registro = 1 While registro = 1 [A1048576].End(xlUp).Activate fila =...

Tengo esta macro Sub validacion() Do PRECIO = InputBox("Ingrese el precio del producto seleccionado") If (PRECIO < 12) Or (PRECIO > 18) Then MsgBox ("EL PRECIO NO ES CORRECTO") End If Loop Until (PRECIO >= 12) And (PRECIO <= 18) MsgBox (PRECIO & " ES...