James Bond

Prueba con esto Public K1, K2, K3 As String Private Sub CommandButton1_Click() MsgBox K1 MsgBox K2 MsgBox K3 'hasta aqui bien End Sub Private Sub CommandButton2_Click() MsgBox K1 MsgBox K2 MsgBox K3 ''aca me aparecen vacias las variables k1 k2 k3 End...

Rowsource no te sirve aunque hay opciones como te muestro en esta imagen, la macro solo lee la fila de los encabezados y los pone en el listbox y esta es la macro Private Sub UserForm_Initialize() COL = Range("B2").CurrentRegion.Columns.Count MATRIZ...

Porque las variables solo serán validas (por default son variables privadas) dentro de la programación del botón, si esas variables las quieres usar en otros botones te las mostrara vacías, puedes declarar las variables como publicas para que así...

Usa la formula kesimo mayor como se muestra en la imagen

Este es el resultado de la macro Al dar grabar el valor se grabara en la hoja y al dar nuevo ira aumentado un dígito al consecutivo y este es el código Private Sub CommandButton1_Click() numero = Range("a2").CurrentRegion.Rows.Count + 1 Label2 =...

Este es el resultado de la macro y esta es la macro Sub copia() Set datos = Range("b3").CurrentRegion With datos col = .Columns.Count: filas = .Rows.Count Set clona = .Cells(2, 4).Resize(1, col - 3) Set destino = .Rows(filas + 3).Resize(col - 3, 4)...

Ya intentaste aunque si usas time no necesitas formato, checa la imagen TextBox1.Text = Format(Time, "hh:mm:ss")

Este es el resultado de la macro y esta es la macro solo pegala dentro de tu formulario Private Sub ComboBox1_Change() Dim aRange As Range PRODUCTO = ComboBox1.Value On Error Resume Next Set Rango = Application.InputBox(prompt:="TECLE EL RANGO DONDE...

Prueba con esta fórmula, realiza la suma del rango d5 hasta f5 y toma el valor de la celda h2 para realizar la multiplicación =+PRODUCTO(SUMA(D5:F5),H2)

Prueba esta macro Sub borrar() Application.DisplayAlerts = False Dim existe As Boolean On Error Resume Next existe = (UCase(Worksheets("GLOBAL").Name) = "GLOBAL") If existe Then ASK = MsgBox("Borrar hoja global", vbYesNo, "AVISO") If ASK = vbYes Then...