UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas noches.
Estoy usando perfecto este código :

Sub CONTROLSALDO_CLIENTES()
'se busca la primer fila libre en hoja Fact
    filalibre = Range("J65536").End(xlUp).Row + 1
'copiamos datos fijos ajustando nro col
    Cells(filalibre, 12) = ActiveSheet.Range("I13")  'COMPRA
End Sub

Y necesito cambiar el concepto:
filalibre, 12
Por el siguiente:
columnalibre, B8

O como se tenga que escribir.
Un saludo

2RESUELTO propuesta el 11/03/14, 06:04 pm

wibly


Hola luishc,

La verdad que no entiendo mucho de VBA pero me puse a analizar el código y buscando en la ayuda te puedo sugerir lo siguiente

en lugar de
filalibre = Range("J65536").End(xlUp).Row + 1
(aclaración, esto busca la primer fila libre, pero solo en la columna J)

poner
Código:
   columnalibre = Range("XFD1").End(xlToLeft).Column + 1
(aclaración, esto busca la primer columna libre, pero solo en la primer fila)


en lugar de
Cells(filalibre, 12) = ActiveSheet.Range("I13")  'COMPRA

poner
Código:
  Cells(8, columnalibre) = ActiveSheet.Range("I13")

No entiendo cuando decís: "columnalibre, B8"

Saludos

Invitado


Invitado
Gracias wibly, por contestar.
con las correciones me sale depurar lo que esta en amarillo :
Sub CONTROLSALDO_CLIENTES1()
'se busca la primer fila libre en hoja Fact
    columnalibre = Range("XFD1").End(xlToLeft).Column + 1
'copiamos datos fijos ajustando nro col
    Cells(8, columnalibre) = ActiveSheet.Range("I13")
End Sub

No entiendo cuando decís: "columnalibre, B8"
es esa celda la primera en ir para pegar datos y que la macro en vez de pegar los siguientes datos por fila, los vaya añadiendo en las [size=12.800000190734863]columnas siguientes de la misma fila[/size]
[size=12.800000190734863]El concepto [/size][size=12.800000190734863]"columnalibre, B8" lo he cambiado yo queriendo hacer una macro nueva que necesito[/size]
Un saludo wibly

wibly


No sé con qué versión de Excel estás trabajando, deberías poner el nombre de la última columna que te figura (en mi caso es XFD) pero calculo que estás usando una versión de Excel anterior (2003?)

Saludos

Adrián

Invitado


Invitado
Gracias wibly, por tu ayuda.
Uso la versión de Excel 2003. Me he ido ala ultima fila IV8, y el codigo que me diste funciona perfecto, eres un verdadero maestro en la ayuda.
Un saludo muy fuerte

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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