Dante Amor

Prueba con la instrucción DoEvents: Sub InsertaImagen() Dim sPath As String, Li As String Dim img As Object Dim rngCell As Range Dim i As Long, n As Long Dim s1 As Worksheet ' Set s1 = Sheets("Sheet1") sPath = Sheets("Main").Range("C11") n = 6 For i...

For i = 0 to 6 AND n = 6 Step 4 Definitivamente eso no es posible. Pero lo podemos resolver de la siguiente manera. Cada contador por separado, según tu requerimiento las imágenes son 1,2,3,4 y 5, entonces i empieza en 1 y termina en 5. Para el valor...

Ho la y bienvenido a TodoExpertos: Con esta línea estás limpiando la memoria, por eso no hay nada que pegar. Application.CutCopyMode = False Debes ponerla al final de la macro: Sheets("Facturacion").Select Range("G3").Select Selection.Copy...

Le doy referencia a un rango Puedes poner aquí ese rango. Si el rango es de la columna A a la D y empieza en la fila 1, entonces utiliza el siguiente código en lugar de utilizar el rango: Private Sub UserForm_Activate() Dim i As Long For i = 1 To...

Prueba también con lo siguiente: Cdbl(ListBox1. List(i, 1)) Si no te funcionan las opciones, podrías poner un ejemplo de cómo tienes el dato en el listbox y cómo debería quedar en la hoja. También pon aquí el código que estás utilizando para poner...

Prueba lo siguiente: Sub importar_Xml() Dim sPath As String, sFile As String Dim Book As Workbook, sh As Worksheet Dim lr As Long ' With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .DisplayAlerts =...

Para eso, cuando proteges la hoja, debes marcar las casillas - Seleccionar celdas bloqueadas - Seleccionar celdas desbloqueadas

Prueba lo siguiente y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor Dim c As Range, rng As Range Dim n As Variant Set rng = Intersect(Target, Range("L:L"), Rows("12:" & Rows.Count)) If Not rng Is Nothing Then...

De acuerdo cesar corado, con gusto te ayudo, pero quisiera que me ayudaras a ayudarte. El ejemplo que yo puse solamente son suposiciones, me gustaría que tú pusieras un ejemplo con datos y con imágenes de la siguiente manera: 1. Una imagen de la hoja...

Prueba Sub Ocultar() If Range("B2") = "NO HAY ESA CADENA EN LA PLAZA" Then Range("B:C").Select Selection.EntireColumn.Hidden = True End if If Range("D2") = "NO HAY ESA CADENA EN LA PLAZA" Then Range("D:E").Select Selection.EntireColumn.Hidden = True...