Carolina Toledo

Carolina Toledo

 España @carolinatoledo2 desde - visto
Preguntar

Actividad pública reciente

Ha empezado a seguir a
Voto positivo a la respuesta

Calcular columna según registros filtrados en listbox Excel vba

respondió: Te dejo la instrucción que falta, utilizo una variable 'x'. Private Sub ComboBox1_Change() Dim CFilas, I, Y As Long Dim Item As String Dim x As Byte CFilas = Hoja1.Range("E" & Rows.Count).End(xlUp).Row ListBox1.Clear x = 10 'para recorrer la tablita...
Ha valorado "Excelente" la respuesta

Duda con el valor (3) que sustituye a xlup

respondió: Ho la Carolina: Revisa la siguiente respuesta: Duda en la expresión o sintaxis .end(3) o end(xlup) [Sal u dos.
Ha valorado "Excelente" la respuesta

Comparar columnas de hoja1 con las columnas de hoja2.

respondió: Te paso la macro: Sub Compara2Columnas() Dim dic As Object Dim i As Long Dim cad As String ' Set dic = CreateObject("Scripting.Dictionary") ' With Sheets("Hoja2") For i = 2 To .Range("G" & Rows.Count).End(3).Row dic(.Range("G" & i).Value & "|" &...
Ha valorado "Excelente" la respuesta

Sumar valores en una columna según el color de la fuente.

respondió: Prueba el siguiente código: Sub Sumar() Dim h As Worksheet Dim i As Long Dim x1 As Double, x2 As Double, x3 As Double ' Set h = Sheets("Hoja1") For i = 1 To h.Range("D" & Rows.Count).End(3) With h.Cells(i, "D") If .Font.ColorIndex = 3 Then x1 = x1 +...
Ha valorado "Excelente" la respuesta

Pasar contenido del listbox a la hoja

respondió: En mis pruebas los pasa como valores. ¿Tienes algún formato en el listbox? Puedes poner una imagen de tu listbox.
Ha valorado "Excelente" la respuesta

Como se puede pasar todos los datos del listbox1 a la hoja

respondió: Prueba el siguiente código: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim lr As Long Set sh = Sheets("Hoja1") lr = sh.Range("A" & Rows.Count).End(3).Row + 1 With ListBox1 sh.Range("A" & lr).Resize(.ListCount - 1, .ColumnCount).Value =...
Ha valorado "Excelente" la respuesta

Como poner límite al recorrido de un ciclo for each

respondió: Prueba lo siguiente: For Each i In h.Range("I1", h.Range("I" & Rows.Count).End(3)) Next
Ha valorado "Excelente" la respuesta

Error en el código al sumar una columna del listbox. ¿Que hago mal?

respondió: ¿Qué dice el error? ¿La columna 5 del listbox, la tienes con formato? ¿En qué número va el contador 'x' cuando se detiene la macro? ¿Qué tienes en el registro .List(x, 5)?