Community Answers
-
JasallBcn's post in Macro para crear varias hojas con información de una Tabla was marked as the answer
Buenas, Prueba
saludos
Casos_v1.xlsm
-
JasallBcn's post in Insertar referencia a tabla en celda con vba was marked as the answer
Te falta el "=" y encerrar las dobles comillas entre comillas.
Sheets("Hoja").Range("C5").Formula2 = "=IF(Tabla="""","""",Tabla)"
-
JasallBcn's post in Condiciones para Valor ingresado en Textbox was marked as the answer
Buenas, una posible solución.
saludos
userform show según valor de una celda4_v1.xlsm
-
JasallBcn's post in Formato Igual was marked as the answer
Buenas, te paso lo que entendí.
saludos
FORMATO PARA CODIGOS_v1.xlsm
-
JasallBcn's post in Copiar celda de excel en una tabla específica si se cumple una condición was marked as the answer
Buenas, te paso una forma.
saludos
Lista de juegos_V1.xlsm
-
JasallBcn's post in Filtrar datos de otro libro de excel que se refleje en un Combobox was marked as the answer
Buenas, una manera seria comprobar la columna lote .
For Each celda In Range(r) If celda.Offset(0, 5).Value = Val(Lote) Then sd.Add celda.Value, CStr(celda.Value) End If Next celda saludos
-
JasallBcn's post in Macro para buscar valor "#N/A" en una columna was marked as the answer
Buenas, lo que quieres es que no se ejecute la macro IMOVTXT si hay errores, entonces según tu código seria :
Sub ERRORES1() Dim ulfila As Integer Dim p As Integer Dim i As Integer With Worksheets("PTR") ulfila = .Cells(Rows.Count, "A").End(xlUp).Row For p = 16 To 17 For i = 2 To ulfila If IsError(.Cells(i, p)) Then MsgBox "Por favor verifica los errores, Fila:" & i & " Colum:" & p, vbInformation + vbOKOnly, "Informacion" Exit Sub End If Next i Next p End With Call IMOVTXT End Sub más corto, comprobando las columnas al mismo tiempo:
Sub ERRORES2() Dim i% With Worksheets("PTR") For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If IsError(.Cells(i, 16)) Or IsError(.Cells(i, 17)) Then MsgBox "Por favor verifica los errores, Fila:" & i & " Colum:16/17", vbInformation + vbOKOnly, "Informacion" Exit Sub End If Next i End With Call IMOVTXT End Sub saludos
-
JasallBcn's post in Pasar a tabla CheckBox con Caption was marked as the answer
Buenas, seria algo así:
Range("a1").Value = IIf(Me.CheckBox1.Value, Me.CheckBox1.Caption, "") Range("a2").Value = IIf(Me.CheckBox2.Value, Me.CheckBox2.Caption, "") Saludos
-
JasallBcn's post in Mejorar tiempo de ejecucion macros, Eliminar Filas was marked as the answer
Buenas tardes, solucion usando AutoFiltro
With ActiveSheet .Range("E5").AutoFilter Field:=1, Criteria1:= _ "=Pajaritos No. 1", Operator:=xlOr, Criteria2:="=Pajaritos No. 2" .AutoFilter.Range.Offset(0, 0).EntireRow.Delete MsgBox "Proceso terminado exitosamente!" End With Saludos
-
JasallBcn's post in Fecha cambia sola de formato después de ser insertada was marked as the answer
Buenas, cambiando estas lineas.
'TextBox1.value = Format(TextBox1.value, "dd-mmm-yy") Range("B" & ultimo).EntireRow.Insert Range("A" & ultimo).value = CDate(Format(TextBox1, "dd-mm-yy")) inhabilita estas otras
' Dim Celda As Range ' FILA = ActiveCell.Row ' With Hoja1 ' .Cells(FILA, 1).Select ' For Each Celda In Selection ' Celda.value = CStr(Celda) ' Next Celda ' End With si te hace falta comvertir todas las celdas , omite la de la fecha.