Elsa Matilde

Debes anteponer el nombre del control ListBox1: ListBox1.List(ListBox1.ListCount - 1, 1) = Format(resul, "#,00") 'col 1 ListBox1.List(ListBox1.ListCount - 1, 2) = Format(resul, "#.00") + 10 'col 2 Dejo como ejemplo las instrucciones para pasar...

Recibidas las muestras. Ya me ocuparé en el día de hoy. Sdos. Elsa http://aplicaexcel.com/funciones

Ya te envié consulta a tu correo, para que me envíes una hoja de modelo: - Cuáles son los rangos en dónde estarán las celdas de color (tenés varios rangos en el libro anterior) - ¿Necesitás qué seleccione todas las de color? ¿O alguna que coincida...

Para reconocer cuál es el control seleccionado utiliza la comparación así: Private Sub CommandButton1_Click() Dim I As Integer Dim A As Integer A = 0 I = 1 For I = 1 To 4 If Me.Controls("OptionButton" & I) = True Then A = A + 1 End If Next...

La parte del código que colorea las celdas con diferentes tonos quedó así. En un módulo dejé una pequeña rutina que lista los colores (en hoja1) del 1 a 20, como para que puedas cambiar los tonos. Set busco = ho2.Range("A:AA").Find(nro,...

Ya te envié el libro así que dejo solamente aquí el ajuste de la macro... no creo que le sirva a nadie ya que es muy especial tu modelo, pero para evitar suspicacias ;) Sub AsignarAleatorio() 'ajustada x Elsamatilde Application.ScreenUpdating = False...

Desde mi blog podrás descargar todos los libros con los ejemplos que publico en mi canal. Hay muchos videos con ventanas del tipo Userform. Por ejemplo podría sugerirte el video N° 36 donde se realiza un filtrado, o el N° 26 para Registro de datos...

Te dejo una macro para hacer el pase de datos a la otra hoja. Como no mencionas qué tipo de pegado necesitas (con o sin fórmulas, con o sin formatos), lo que se hace aquí es una copia fiel de la hoja de origen. Ingresa al Editor de macros (desde menú...

Estoy tratando de imaginar tu situación... si falta realizar algún ajuste podés solicitar aclaraciones. ¿Cómo función... estás refiriéndote a botones que ejecutan macros? ¿Es decir botones dibujados en la hoja con alguna de estas herramientas? : Como...

Dejo la macro que ejecuta todas las subrutinas para cada fila a partir de la 100. Sub recorreNros() 'esta es la macro inicial 'x Elsamatilde Sheets("Hoja1").Select 'hoja de inicio 'se recorre la col A (a partir de la fila 100) marcando los 4 nros en...