SOLVED

Suma Progresiva

%3CLINGO-SUB%20id%3D%22lingo-sub-1920643%22%20slang%3D%22es-ES%22%3EProgressive%20Sum%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1920643%22%20slang%3D%22es-ES%22%3E%3CP%3EHello%2C%20friends%2C%20I%20have%20this%20macro%20only%20that%20if%20I%20insert%20a%20few%20rows%20above%20the%20table%20does%20not%20work%20for%20me%2C%20I%20want%20to%20place%20a%20header%20in%20it%20and%20it%20throws%20me%2C%20%22do%20not%20match%20the%20types%22%2C%20in%20the%20macro%20where%20I%20can%20modify%20that%20range%2C%20I%20understand%20that%20the%20range%20of%20the%20record%20sheet%20defines%20it%20above%2C%20but%20the%20one%20on%20the%20order%20sheet%20I%20do%20not%20understand%20%2C%20could%20you%20help%20me%20please.%3C%2FP%3E%3CP%3ESomething%20like%20that%20was%20what%20I%20tried%2C%20and%20it%20doesn't%20%3CLI-EMOJI%20id%3D%22lia_disappointed-face%22%20title%3D%22%3Adisappointed_face%3A%22%3E%3C%2FLI-EMOJI%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20registroprueba()%0ADim%20Celda%20As%20Range%0AApplication.ScreenUpdating%20%3D%20False%0AFor%20Each%20Celda%20In%20Sheets(%22Registros%22).Range(%22B3%3AE%22%20%26amp%3B%20_%0ASheets(%22Registros%22).Range(%22A%22%20%26amp%3B%20Rows.Count).End(xlUp).Row)%20'%C3%9Altima%20fila%0ACelda.Value%20%3D%20Celda.Value%20%2B%20Sheets(%22Pedido%22).Range(Celda.Address)%0ANext%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22ce2ababe-b46c-4cdd-92f6-5fc8a6c3883b.jpg%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F235354iC0CB9D77C1120C96%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22ce2ababe-b46c-4cdd-92f6-5fc8a6c3883b.jpg%22%20alt%3D%22ce2ababe-b46c-4cdd-92f6-5fc8a6c3883b.jpg%22%20%2F%3E%3C%2FSPAN%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22f73a3949-642f-4fda-9808-5f254a05b045.jpg%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F235353i908F0A5221EB1222%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22f73a3949-642f-4fda-9808-5f254a05b045.jpg%22%20alt%3D%22f73a3949-642f-4fda-9808-5f254a05b045.jpg%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1920643%22%20slang%3D%22es-ES%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1920757%22%20slang%3D%22de-DE%22%3ESubject%3A%20Suma%20Progresiva%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1920757%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F877296%22%20target%3D%22_blank%22%3E%40juliangarita%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22VIiyi%22%3E%3CSPAN%20class%3D%22JLqJ4b%20ChMk0b%22%3E%3CSPAN%3ECould%20you%20please%2C%20based%20on%20the%20file%20you%20have%20sent%2C%20what%20exactly%20is%20your%20plan%2C%20or%20what%20should%20the%20file%20(or%20vba%20code)%20do%20that%20it%20doesn't%3F%3C%2FSPAN%3E%3C%2FSPAN%3E%20%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22VIiyi%22%3E%3CSPAN%20class%3D%22JLqJ4b%20ChMk0b%22%3E%3CSPAN%3EProbably%20because%20of%20the%20translation%20I%20can't%20follow%20you.%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThank%20you%20for%20your%20understanding%20and%20patience%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
Occasional Visitor

Hola, Amigos, tengo esta macro solo que si inserto unas filas arriba de la tabla no me funciona, quiero colocar un encabezado en ella y me arroja, "no coinciden los tipos", en la macro donde puedo modificar ese rango, entiendo que el rango de la hoja de registros lo define arriba, pero el de la hoja de pedido no lo entiendo, me podrían ayudar por favor.

Algo así fue lo que intenté, y no funciona

 

 

Sub registroprueba()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Sheets("Registros").Range("B3:E" & _
Sheets("Registros").Range("A" & Rows.Count).End(xlUp).Row) 'Última fila
Celda.Value = Celda.Value + Sheets("Pedido").Range(Celda.Address)
Next
End Sub

 

 

 
 

ce2ababe-b46c-4cdd-92f6-5fc8a6c3883b.jpgf73a3949-642f-4fda-9808-5f254a05b045.jpg

 

1 Reply
Highlighted
Best Response confirmed by juliangarita (Occasional Visitor)
Solution

@juliangarita 

Could you please, based on the file you have sent, what exactly is your plan, or what should the file (or vba code) do that it doesn't?

 

Probably because of the translation I can't follow you.

 

Thank you for your understanding and patience

 

 

Nikolino

 

I know I don't know anything (Socrates)