Saltar al contenido

Antoni

Miembros
  • Contador de contenido

    8799
  • Unido

  • Última visita

  • Days Won

    386

Sobre Antoni

  • Rango
    Antoni

Información de perfil

  • Sexo Hombre
  • Localización: Galicia (UTC+1) Excel 2016

Configuraciones

  • Campo que utilizas como separador de argumentos ;
  1. INSERTAR FECHA Y HORA

    Cambiando: Range("P" & nfila).Value = Now por: If Range("P" & nfila).Value = "" Then Range("P" & nfila).Value = Now Solo lo hará una vez.
  2. Un error 9 constata la inexistencia de un elemento en una colección, la mas habitual es intentar usar una hoja que no existe o cuyo nombre esté mal escrito, vamos, lo mismo que con el nombre del formulario. Si no te aclaras, sube el archivo.
  3. Datos en celdas se actualicen

    En la hoja Hoja1: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$W$12" Then Hoja2.Range("M2") = Target Application.EnableEvents = True End Sub En la hoja Hoja2: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$M$2" Then Hoja1.Range("W12") = Target Application.EnableEvents = True End Sub
  4. Otra opción a la consulta. Private Sub CommandButtSAVE_Click() Guardar Sheets("Hoja1") Guardar Sheets("Hoja2") Guardar Sheets("Hoja3") End Sub Private Sub Guardar(Hoja As Worksheet) With Hoja uLinea = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("K" & uLinea).Value = TextBox1.Text .Range("C" & uLinea).Value = TextBox3.Text .Range("D" & uLinea).Value = TextBox2.Text .Range("H" & uLinea).Value = TextBox5.Text .Range("L" & uLinea).Value = TextBox6.Text .Range("M" & uLinea).Value = TextBox7.Text .Range("N" & uLinea).Value = TextBox8.Text .Range("J" & uLinea).Value = TextBox8.Text .Range("O" & uLinea).Value = ComboBox2.Value .Range("Q" & uLinea).Value = ComboBox3.Value .Range("E" & uLinea).Value = Label10.Caption .Range("F" & uLinea).Value = Label11.Caption .Range("G" & uLinea).Value = Label12.Caption .Range("I" & uLinea).Value = Label13.Caption .Range("P" & uLinea).Value = Label15.Caption .Range("R" & uLinea).Value = Label16.Caption .Range("B" & uLinea).Value = Label20.Caption End With End Sub
  5. A todo si, excepto que los nombres de rangos y tablas no pueden contener espacios.
  6. Sustituye empledos.Show por empleados.Show
  7. Yo consideraría esta posibilidad: Sub Copiar() Sheets("MALL").Cells.Clear Sheets("RA").Cells.Clear With ActiveSheet .Range("A1").Select .UsedRange.AutoFilter Field:=3, Criteria1:="MALL" .AutoFilter.Range.Copy Sheets("MALL").Range("A1") .UsedRange.AutoFilter Field:=3, Criteria1:="RA" .AutoFilter.Range.Copy Sheets("RA").Range("A1") End With ActiveCell.AutoFilter End Sub
  8. Yo creo que el problema no está en seleccionar la hoja o no. Copia de COPIAR CON FILTRO.xlsm
  9. Abre el adjunto, pulsa doble-click en A1, y sigue tus instintos. Generar cajas
  10. Error mío: Cambia Range("B3").End(xlDown) por Range("B" & Rows.Count).End(xlUp)
  11. Estoy trabajando en una solución integral, en lo que queda de hoy y mañana, creo que te podré subir la respuesta.
  12. . Tu problema está tiene 2 causas: La hoja Tramos no existe El rango de partida es incorrecto, debe ser B3, C3 y D3 en lugar de B4, C4 y D4. Y puedes evitarte especificar ThisWorkbook en cada instrucción, no es necesario. Según el ejemplo de tu archivo, lo correcto sería: Sheets("Tramo").Range("B3").End(xlDown).Offset(1, 0) = Sheets("Gotero").Range("A5") Sheets("Tramo").Range("C3").End(xlDown).Offset(1, 0) = Sheets("Gotero").Range("C24") Sheets("Tramo").Range("D3").End(xlDown).Offset(1, 0) = Sheets("Gotero").Range("I14")
  13. . Y además, puede que te falte el carácter de continuación de sentencia. Set x = Sheets("hoja1").Range("E:H"). _ Find(Me.ComboBox1, , , xlWhole) .
  14. Del Barceloma, no de Barcelona, que @ikannies navarro.
  15. Rango de una columna a array de 1 dimensión. Pon valores en la columna A y ejecuta esta macro. Sub RanGoArray1Dimensión() Dim Arrai As Variant Arrai = Split(Join(Application.Transpose(Range("A1:A" & _ Range("A" & Rows.Count).End(xlUp).Row).Value))) MsgBox UBound(Arrai) MsgBox Arrai(0) MsgBox Arrai(1) '.... '.... '.... '.... MsgBox Arrai(Ubound(Arrai)) End Sub
×