antares18

No te funciona bien porque la sub está basada para que funcione con un formulario. Si creas un formulario y pones los combos en él, diría que si te funcionaría

Sub Combobox21_change() dim i as integer dim columna_de_productos as string 'Supongo que esta en la columna B columna_de_productos="B" 'Si la 1a fila tiene encabezado i=2, si no i=1 'Supongo que los tiene i=2 While(Range("A"+cstr(i))<>"") 'En la...

El procedimiento es igual para el textbox que para el label. Lo que tu estás pidiendo técnicamente es esto. Hoja1 es la hoja donde tienes el formulario. TextBox21 y Label21 el textbox y el label Hoja1. TextBox21.Text = CStr(Hoja1. Range("A1"). Value)...

En g18 =SI((D18-C18-E18)<=0;0;(D18-C18-E18)) Si es menor que 0 entonces se pone 0, y si es positivo

Public Sub separar_num() Dim texto As String Dim rango As Range texto = Range("A1") Set rango = Range("B1") Dim i As Integer For i = 1 To Len(texto) rango.Offset(0, i - 1) = Mid(texto, i, 1) Next i End Sub El A1 es donde tienes el texto El B1 es...

En vez de esto "C:\Users\LT-138\Documents\& nombre.pdf" Has de poner "C:\Users\LT-138\Documents\"+ nombre+".pdf"

Depende de los valores de las celdas que pongas. No es lo mismo si lo que pones como Celda1 al 10 son valores de la misma columna o de fácil colocación o si son celdas aleatorias que no tienes ninguna conexion entre ellas. Si es lo 2o lo que has...

Private Sub cmdBusqueda_Click() Dim UltLinea As Long UltLinea = Range("A" & Rows.Count).End(xlUp).Row 'Para no tener que estar cambiando todo el tiempo el rango de los datos 'Si tienes el nombre en la columna B pones un 2 txtNombre.caption=...

Private Sub CommandButton1_Click() Dim UltLinea As Double Dim DesdeFila as double DesdeFila=9 'Fila A9 'Cuenta las celdas que hay 'UltLinea = Range("A" & Rows.Count).End(xlUp).Row Pero como quieres que empiece desde la UltLinea = Range("A" &...

No se si ya lo has solucionado, pero te pongo un código Private Sub CommandButton1_Click() Dim fila_datos_no_repetidos As Double Dim i As Double Dim num_filas As Double Dim simbolo_entre_valores As String ' La hoja1 es donde están tus datos num_filas...