Hola a todos, necesito ayuda con una macro
Hola por favor ayuda
Estoy haciendo una planilla de clientes automática pero necesito ayuda con una macro.
En la hoja1 tengo un formulario donde en el rango g6 pongo el nombre del cliente y me carga sola la fecha el código del cliente y en el rango i20 me carga la deuda del cliente yo agrego en los rangos e7 al e18 los códigos de los productos y en el rango f7 al f18 las cantidades de los productos y en los rangos g h i del 7 al 18 me sale la descripción y el precio de los productos en el rango i19( me musa el rango i7+i18) en el i20 como dije me sale lo anterior del cliente con una formula buscarv en el i21 me sale la suma del i19 + i20 y en el i22 tengo para poner un descuento en el i23 me suma i21+i22 el i24 tengo para cargar un extra y en el i25 me suma el i23+i24 espero se entienda.tengo hecha una macro que la ejecuto con un botón que me copia todo esto a la derecha me lo convierte en valores y me lo pega en la hoja 3. Hasta ahi va de dies el problema que el nuevo fiado lo tengo que cargar a mano.yo quisiera hacer otra macro que me tomo el rango i25 lo convierta en valores y me lo pegue en la hoja 2 en el cliente que este en el rango g6. Osea si le estoy facturando a juan cuando ejecute mi macro quiero que el rango i25 me lo copie en la hoja 2 en la columna 12 en la fila de juan. Espero puedan ayudarme muchas gracias
1 respuesta
Supongo que en la hoja2 tienes a todos los clientes, si es así, crea la siguiente macro:
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
'*****MACRO**********
Sub copiatotalcliente()
'Por daM
Worksheets("Hoja1").Select
totalcliente = Range("I25").Value
cliente = Range("G6").Value
Worksheets("Hoja2").Select
Range("A:A").Select
Set Rango = Selection.Find(What:=cliente, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False)
If Rango Is Nothing Then
MsgBox ("No se encontró " & cliente)
Else
i = Rango.Row
Cells(i, 12).Value = totalcliente
End If
End Sub
'***************
