Dante Amor

[H o l a, el siguiente es un consejo: No deberías poner las preguntas como anónimo, después es difícil hacer el seguimiento. Tu usuario puedes ser un seudónimo, no es necesario que pongas tu nombre, puede ser cualquier palabra o combinación de...

Lo siguiente me funciona muy bien, pruébalo y me comentas. Sub filtrar() Dim uf1 As Long, uf2 As Long, sh As Worksheet ' With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With ' Set sh =...

Prueba lo siguiente: Private Sub CommandButton1_Click() Hoja1.Cells(2, 4) = CDate(TextBox1.Value) End Sub

Necesito una macro que al darle click sea capaz de rellenar las celdas de la columna E ¿Rellenar con qué?

Y si lo pones 2 veces, prueba lo siguiente: Sub Macro1() ActiveWorkbook. RefreshAll DoEvents ActiveWorkbook. RefreshAll DoEvents End Sub

Tu macro tiene esta línea: Range("B4").Select En esa línea empiezas a seleccionar los datos de la tabla dinámica, cómo sabes si la tabla no tiene datos? Es decir, ¿la celda B4 está vacía? ¿O la celda B5 está vacía? ¿O de que manera puedes saber que...

Revisa mi respuesta al final: Listbox con más de 15 columnas

Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L:L")) Is Nothing Then Dim i As Long If Target.CountLarge > 1 Then Exit Sub If UCase(Target.Value) = UCase("Alta")...

¿Qué dice el mensaje de error? No se ve bien la imagen.

¿Y cómo seleccionas la celda en la hoja? ¿Por lo que veo tienes varios registros con "Toallas de mano" pero cómo sabes cuál es el que tienes en el listbox? Cómo cargas los datos en el listbox, ¿tienes algún filtro para cargar los datos o simplemente...