............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ingresar Informacion Solo de Tabla.

Ver el tema anterior Ver el tema siguiente Ir abajo

Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Sáb Ago 29, 2009 2:36 pm

Hola a todos en el foro, soy nuevo aca, y necesito su ayuda, pero no se como subir mi archivo, o no se puede??

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Sáb Ago 29, 2009 2:56 pm

Bueno aqui les dejo mi archivo, les explico, lo que necesito es guardar dos datos de mi tabla en la hoja Salidas, pero solo los datos de la Tabla, hay les dejo mi archivo poravor aver si me dan una mano.

[Tienes que estar registrado y conectado para ver este vínculo]

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por GalileoGali el Sáb Ago 29, 2009 6:50 pm

Prueba esta Macro

Código:
Sub Prueba2()
Dim i As Integer, J As Integer, lngUltfila As Long
Dim oLista As ListObject
Dim filaLista As ListRow
Application.ScreenUpdating = False
 
Set oLista = Worksheets("Boleta").ListObjects(1)

i = oLista.ListRows.Count
If i < 1 Then Exit Sub

For J = 1 To i
    If oLista.ListRows(J).Range(1, 1) = "" Then Exit For
    With Sheets("Salidas")
        lngUltfila = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
        .Cells(lngUltfila, "A").Value = oLista.ListRows(J).Range(1, 3).Value
        .Cells(lngUltfila, "C").Value = oLista.ListRows(J).Range(1, 4).Value
        .Cells(lngUltfila, "D").Value = oLista.ListRows(J).Range(1, 2).Value
        '.Cells(lngUltfila, "B").Value = oLista.ListRows(J).Range(1, 2).Value
    End With
Next J
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Sáb Ago 29, 2009 10:59 pm

Muchas gracias, e posteado esto en mas de 4 Foros,me quedo con este foro, es el mejor, muchas gracias amigo, amigo necesito algo mas, todo funciona de maravilla, pero al ingresar los datos a salidas, que deje la tabla en blanco y que solo vuelva a tener 1 sola fila, y que mantenga las formulas que lleva dentro, porfavor necesito eso mas porfavor.

Saludos.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por GalileoGali el Dom Ago 30, 2009 12:19 am

Estudia el objeto ListObject.
No damso pescado, solo enseñamos a pescar.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Dom Ago 30, 2009 9:16 am

Amigo porfavor, yo ya lo intente por eso pido ayuda, porfavor lo necesito, solo eso mas porfavor, eres mi ultima esperanza, te lo ruego.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por GalileoGali el Dom Ago 30, 2009 12:41 pm

Busca la forma de enganchar esta macro dentro del codigo anterior, llamandola
Código:
Sub Limpiar()
Dim oListObjData As Range
Dim filas As Long
With Worksheets("Boleta")
.Activate
Set oListObjData = .ListObjects(1).DataBodyRange
filas = oListObjData.Rows.Count
If filas > 1 Then
Set oListObjData = oListObjData.Offset(1, 0).Resize(filas - 1, 6)
oListObjData.EntireRow.Delete
End If
Set oListObjData = .ListObjects(1).DataBodyRange.Resize(1, 5)
oListObjData.ClearContents
.[A6].SELECT
End With
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por GalileoGali el Dom Ago 30, 2009 12:45 pm

En este foro no hay negocios o ganancias ocultas, solo interes por enseñar, de ahi que cuando percibimos que estamos dando uan solucion y no comprendida por quien la recibe, probablemente porque sus conociientos (concatenados), aun no han arribado al peldaño necesario, lamentamos pero preferimos no aportar nada. Este sitio se caracterizara por escasa cantidad de aportes, pues, pero pretendemos calidad, para que?, para que quienes respondemos gralte. TAMBIEN APRENDAMOS de los cuestionamientos que se planteen

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Dom Ago 30, 2009 5:30 pm

Bueno, muchas gracias por todo, te lo agradesmo mucho, me pondre a estudiar el Visual Basic6 ya que es muy util en todo sentido, amigo te lo agradesco en serio.

Saludos Cordiales.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por GalileoGali el Dom Ago 30, 2009 9:39 pm

sería interesante que digas si sirvio o no

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por henryh007 el Dom Ago 30, 2009 10:16 pm

Pues me funciono de Maravilla, le hice unas cuantas modificaciones, y quedo perfecta, muchas gracias por todo.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: Ingresar Informacion Solo de Tabla.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.