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, necesitaría copiar celda "B5".
En "J11" hacia abajo.. Para llevar un registro de ventas del cliente.
Un saludo

Igtelo


Hola Luis.

Sólo te puedo contestar: ??????!!!!!!!!
Nada más tú te entiendes...

Saludos
Ignacio Téllez

3RESUELTO Aclara un poco el 15/03/14, 09:26 am

wibly


Luis,

Aclara un poquito más para que no tengamos que estar suponiendo. ¿qué hay en la celda B5 hay un número, una fórmula, ...?

Por qué quieres una macro para hacerlo (no lo pides explícitamente pero estamos en el sub-foro de macros).

Creo que lo tendrías solucionado simplemente con copiar la celda B5 y pegar desde la J11 hasta donde quieras.

Saludos

Adrián



Última edición por wibly el 15/03/14, 09:58 am, editado 1 vez

Invitado


Invitado
Hola Adrián, es el importe de factura es por lo tanto una formula, pero lo quiero pegar como valor, como eso se hacerlo, no lo he preguntado.
El problema que tengo que me lo pega en la primera fila libre, y tengo que escribir algo en la anterior para que me lo grabe a partir "J11" inclusive, lo que copio de la celda, el valor, "B5".
Un saludo

Invitado


Invitado
Adrian, es para llevar el control facturado del cliente que haga el asentamiento, aparte del general, en su hoja para controlar su compra-
Gracias

wibly


luihc,

Ponte en el lugar de quienes leen el tema para ayudar, tenemos que entender lo que querés, sino es imposible.

Dices: "El problema que tengo que me lo pega en la primera fila libre, y tengo que escribir algo en la anterior para que me lo grabe a partir "J11" inclusive..."

¿y por que no lo pegás en la J11 directamente? ¿estás hablando de una macro que ya tenés? si fuera así nbo podemos ayudarte sino tenemos la macro ¿no podés poner en la macro que lo pegue en J11? ¿querés que se te haga la macro de cero?

Adrián

Invitado


Invitado
Crei que no hacia falta, la macro es :

Sub Fila_determinada()
    filalibre = Range("J65536").End(xlUp).Row + 1 
    Cells(filalibre, 10) = ActiveSheet.Range("I13")  
End Sub

Un saludo

8RESUELTO Propuesta: IF el 15/03/14, 10:21 am

wibly


Entonces solo es cuestión de agregarle la condición de que si filalibre es menor que 11 le asigne el valor 11.

Prueba con esto
Código:
Sub Fila_determinada()
    filalibre = Range("J65536").End(xlUp).Row + 1
    If filalibre < 11 Then filalibre = 11
    Cells(filalibre, 10) = ActiveSheet.Range("I13")
End Sub

Puede haber otra propuesta más sencilla.

Saludos

Adrián

Invitado


Invitado
Dime la otra forma sencilla, porfa
Gracias adrian

wibly


jaja, solo digo que existe la posibilidad de que haya otra propuesta más sencilla, pero yo no la tengo... igual me parece que noesta nada mal la que te pasé.

Invitado


Invitado
Adrian muchas gracias no sabes lo que te lo agradezco.
Un saludo

12RESUELTO una mas corta el 15/03/14, 10:53 pm

wibly


Aca te paso una forma mas corta... aprovecho para ir aprendiendoun poco.

Código:
Sub Fila_determinada3()
    filalibre = Application.Max(Range("J65536").End(xlUp).Row + 1, 11)
    Cells(filalibre, 10) = ActiveSheet.Range("I13")
End Sub

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.