Pasar datos de una hoja a otra descartando celdas vacias

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Pasar datos de una hoja a otra descartando celdas vacias

Notapor Alxunder_ubdk » 27 Dic 2017 13:02

Junto con saludar y agradeciendo de antemano su ayuda ante esta situación, me encuentro realizando un control de bodega en excel y necesito trasladar artículos desde una hoja a otra. De momento funciona solo tomando como dato la primera fila de datos, sin embargo necesito aplicar esta formula a varias celdas intercaladas entre una y otra y que tome solamente los datos de las celdas pobladas descartando las celdas vacías . Se que se puede hacer en un for each sin embargo aca me falla la logica por ende necesito su ayuda....aca dejo el codigo quie solo toma la primera fila

Sub guardar()

'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim strBorrar As String

'
strTitulo = "Salida Bodega "
'
Continuar = MsgBox("Dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
Set TransRowRng = ThisWorkbook.Worksheets("datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1


With ThisWorkbook.Worksheets("datos")



.Cells(NewRow, 1).Value = ThisWorkbook.Sheets(3).Range("b2"
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(3).Range("d2")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(3).Range("e2")
.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(3).Range("f2")

End With





'
strBorrar = MsgBox("Desea borrar los datos agregados", vbYesNo + vbExclamation, strTitulo)


'
End Sub
Alxunder_ubdk
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 27 Dic 2017 12:36

Re: Pasar datos de una hoja a otra descartando celdas vacias

Notapor Dantte666 » 27 Dic 2017 14:05

Te recomiendo subir el Libro de Excel, saludos.
Avatar de Usuario
Dantte666
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 348
Registrado: 31 May 2010 04:33

Re: Pasar datos de una hoja a otra descartando celdas vacias

Notapor Alxunder_ubdk » 28 Dic 2017 11:01

Es de la hoja de salida de articulos a datos... gracias de antemano
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Alxunder_ubdk
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 27 Dic 2017 12:36

Re: Pasar datos de una hoja a otra descartando celdas vacias

Notapor Antoni » 28 Dic 2017 13:42

Aclara lo de "celdas pobladas".

En el ejemplo que has subido hay aplicado un filtro, ¿Quieres tratar toda la hoja o solo el resultado del filtro?.

En la hoja datos ¿Hay que añadir o sustituir?
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5538
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados