Joseph Sanchez

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

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

Dios en el AT, se presenta como el Creador, pues creo todo lo que vemos, como el Sustentador, pues en muchas ocasiones se encargó de alimentar a su pueblo en ese entonces Israel, sobre todo en el Éxodo, Se revela como Único Dios y Juez Justo, hay...

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

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

Aunque conozco mucho de excel y algo de vba no he trabajado vb.net, te sugiero hacerle la pregunta a otro experto. lamento no poder ayudarte..

Sub Extraerdato() ' ' Extrae los datos de la celda D3, D4, D5, y los copia en la celda C6, D6, D7, ' ' ActiveCell.FormulaR1C1 = "=[Libro2.xlsm]Hoja1!R3C4" Range("C6").Select ActiveCell.FormulaR1C1 = "=[Libro2.xlsm]Hoja1!R4C4" Range("D6").Select...