calvuch

Eso es equivalente a : 1 ingresar código 2 filtrar los registros de ese código 3 consultar si se imprime o no 4 imprimir o salir

en ves de utilizar form1.show utiliza el metodo load asi inicializas la aplicacion desde un sub main ejemplo Private Sub Main() If App.PrevInstance = True Then MsgBox App.Title & " Ya esta en ejecución", vbCritical, App.Title End Else Load Form1 End...

Acá esta el macro, debe ir en el evento change de la hoja Sobre la pestaña de la hoja botón derecho del mouse y selecciona "Ver código", en el editor que se abrió pegas esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...

Una opción seria establecer la serie consecutiva en la fila superior a la que tiene la función Ejemplo: Desde C4 hasta h4 pones secuencial 1 2 3 4 5 6 Y c5 pones: =$H$1*+C4+2 Ahora copias la función hasta la celda H5

Como no se tus rangos, te dejo este sub para que lo adaptes Mis entradas concatenadas están en col A desde A1 y te dejara los hipervínculos en la col F Sub link() Dim r As Range For Each r In Range("a1" & ":" & "A" &...

Prueba Sub listar() Dim m() As String Dim c As String Dim r As Range Dim i As Integer For Each r In Range("A1:G2") If InStr(1, c, r) = 0 Then c = c & r & "#" DoEvents Next m = Split(c, "#") c = "" For i = LBound(m) To UBound(m) Range("H" & i + 1) =...

Las notas sonoras se han quitado de Microsoft Excel Para mensaje prueba Private Sub Worksheet_Change(ByVal Target As Range) If [a24] = 7 Then MsgBox "Mensaje", vbInformation End Sub

Prueba Sub copia() Range("A1:G1").Select Selection.Copy Range("L11").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A1").Select End Sub

Yo lo hago así: Datos en col a de la hoja 2 y la lista desplegable en celda b1 de la hoja1 Sub lista() Dim n As Integer n = Application.WorksheetFunction.CountA(Sheets(2).Range("A:A")) If n = 0 Then Exit Sub ' para ejemplo lista de datos en columna A...

Utiliza este macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Dim i As Integer Randomize 1: i = Int((0 - 6)) * Rnd + 6 If [a1] + i > 6 Then GoTo 1 [b1] = i End If End Sub Insértalo así: Botón derecho del...