Jump to content

Apoyo para corregir macro que guarda datos


Recommended Posts

Buen día a todos:

Por este medio quiero solicitar su apoyo para ayudarme a corregir una macro que me guarda unos datos de la hoja FORMULARIO a la hoja BASE.

El objetivo de guardar los datos a la hoja BASE se cumple parcialmente, pero tengo el siguiente problema: La idea es que antes de guardar los datos, la macro verifique si el campo "NUMERO DE SOLICITUD" que se encuentra en la celda B2 de la Hoja FORMULARIO, ya se ha guardado alguna vez en la hoja BASE. Si se comprueba que ya se ha guardado una vez, la macro debería sobreescribir la información en la fila donde ya estaba guardada en la hoja BASE; si en caso se comprueba que aún no se ha guardado, que copie la información en la primera fila vacía que se encuentre de la columna A de la hoja BASE. Y esto último es lo que no logro hacer funcionar, ya que la macro no sobreescribe cuando ya se encuentra el número de solicitud guardado una vez.

 

La macro que utilizo es la siguiente:

 

Sub ExportarBase()
   Dim Fila As Long
   Dim no As Range
   Application.ScreenUpdating = False
   Set no = Hoja2.Columns("A").Find(Hoja1.Range("a2"), , , xlWhole)
   If Not no Is Nothing Then
      Fila = no.Row
   Else
      Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
   End If
    Hoja2.Range("A" & Fila) = Hoja1.Range("B1")
    Hoja2.Range("B" & Fila) = Hoja1.Range("B3")
    Hoja2.Range("C" & Fila) = Hoja1.Range("C6")
    Hoja2.Range("D" & Fila) = Hoja1.Range("C8")
    Hoja2.Range("E" & Fila) = Hoja1.Range("D11")
    
    
    Application.ScreenUpdating = True

End Sub

Acompaño un archivo de ejemplo que tengo trabajando, para ver si me pueden apoyar.

 

Desde ya, muchas gracias por su atención y el apoyo que puedan brindarme.

 

Saludos

 

 

 

 

Macro Guardar Datos.xlsm

Link to post
Share on other sites
Sub ExportarBase()
   Dim Fila As Long
   Dim no As Range
   Dim solicitud As String
   
   Application.ScreenUpdating = False
   solicitud = Hoja1.Cells(1, 2)
   ufh1 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
    
            
    With Hoja2.Range("A2:A" & ufh1)
    
        Set no = .Find(CDbl(solicitud), LookIn:=xlValues, lookat:=xlWhole)
        With Hoja2
            If Not no Is Nothing Then
                Fila = no.Row
                .Range("A" & Fila) = Hoja1.Range("B1")
                .Range("B" & Fila) = Hoja1.Range("B3")
                .Range("C" & Fila) = CDate(Hoja1.Range("C6"))
                .Range("D" & Fila) = CDate(Hoja1.Range("C8"))
                .Range("E" & Fila) = Hoja1.Range("D11")
            Else
                Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
                .Range("A" & Fila) = Hoja1.Range("B1")
                .Range("B" & Fila) = Hoja1.Range("B3")
                .Range("C" & Fila) = CDate(Hoja1.Range("C6"))
                .Range("D" & Fila) = CDate(Hoja1.Range("C8"))
                .Range("E" & Fila) = Hoja1.Range("D11")
            End If
        End With
    End With
    
    Application.ScreenUpdating = True

End Sub

Prueba el adjunto y comenta.

Macro Guardar Datos Prueba 1.xlsm

Link to post
Share on other sites

Convierte un dato a fecha, creo que en tu caso no es necesario, ya que la información ya proviene de una celda con formato fecha.

De hecho tu macro ya funcionaba, solo había un error en la celda solicitud.

Sub ExportarBase()
   Dim Fila As Long
   Dim no As Range
   Application.ScreenUpdating = False
   Set no = Hoja2.Columns("A").Find(Hoja1.Range("B1"), , , xlWhole) '<---------------------
   If Not no Is Nothing Then
      Fila = no.Row
   Else
      Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
   End If
    Hoja2.Range("A" & Fila) = Hoja1.Range("B1")
    Hoja2.Range("B" & Fila) = Hoja1.Range("B3")
    Hoja2.Range("C" & Fila) = Hoja1.Range("C6")
    Hoja2.Range("D" & Fila) = Hoja1.Range("C8")
    Hoja2.Range("E" & Fila) = Hoja1.Range("D11")
    Application.ScreenUpdating = True
End Sub

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • nosotros usamos este link descargamos de SAT los xml y guardamos en una ruta y el programa tiene para importar los xml a excel, teda la opción de elegir la ruta, pero ese es de paga tiene de prueba de 10 días, ese que te pase es gratis checalo tambien @DiegoLG. a ver si le funciona saludos 
    • descarga este programa: descargarcfdi.zip y instalalo, ese programa tiene para importar xml a excel checalo, y me dices yo no puedo instalara programa en mi maquina no tengo permiso es maquina de mi trabajo, nosotros a qui en la empresa usamos uno de paga y ese es gratuito y la pagina dice Convertir tus archivos XML a Excel Podrás convertir la información de tus comprobantes fiscales (XML) exportándolos a MS Excel. Tendrás todos los datos de tus XML, incluidos los conceptos. Se genera un archivo de Excel con más de 120 columnas con los datos de los XML. Se desglosan los impuestos retenidos y trasladados por tipo y tasa.
    • Prueba y comenta... en el video veras que solo pone un si pero es que me he equivocado al subirlo el que he subido es de una prueba anterior, en realidad pasa todos los marcados. EEDD2020-3.xlsm
    • @DiegoLG En los ejemplos se extraen datos de nodos normales de xml, eso lo puedo hacer, lo que no he podido es extraer información de los nodos dentro de la seccion CDATA.   Gracias
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy