Jump to content

JasallBcn

Members
  • Posts

    195
  • Joined

  • Last visited

  • Days Won

    15
  • Country

    Spain

Community Answers

  1. 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
  2. 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)"  
  3. 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
  4. JasallBcn's post in Formato Igual was marked as the answer   
    Buenas, te paso lo que entendí.
     
    saludos
     
    FORMATO PARA CODIGOS_v1.xlsm
  5. 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
  6. 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
  7. 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
  8. 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
  9. 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
  10. 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.
×
×
  • Create New...

Important Information

Privacy Policy