tai kad taip laaabai sudetinga

File> Page setup> landscape

Didelis ACIU tau, wariuga, fu, kiek privargau su tuo doku...
Labai tau aciu!

Dabar 9.47 ?

Aciu, Vifi, pagaliau pavyko. Norejau ir jums parodyti - mane tai pralinksmino...

Smailus

Gal tamstu butu galim apaklausti, kaip jus ikeliat tuos judancius paveiksliukus?

mazdaug... nors aistros truksta... Gal del to. kad soka kinieciai

Ir as prisiminiau studiju laikus... Ech nuo tu ispanisku ritmu sirdis uzverda...

ie.youtube.com/watch?v=CSVP7THm1og

Man labai patinka Vifi avataras

Kaip ten su mano makrosu? Ar niekas nebandet koreguoti?

Sorry, blogai buvau nukopinusi...
Dabar priedegu su makrosais.

Sveiki,
prisegu failiuka su tuo makrosu, gal galesite ji pakoreguoti...

Bandziau virsuje irasyti, bet neveikia, nebeturiu kantrybes daugiau mucitis, nes visa diena vargstu
Gal rytoj kazkas pavyks.

Is principo nieko ten sudetingo nera - paleidi makroso irasyma ir darai tai, ka nori kad paskui atkartotu makrosas. Tik man beda ta, kad nezinau kaip padaryti, kad kiekviena nauja SF, jis rasytu i nauja eilute, nes dabar man jis varo i ta pacia

Jis is vienos lenteles, kurioje suvedineju naujai israsomu SF duomenis, perkelia i kita lentele, kurioje yra visu israsytu sarasas. Kai baigsiu tvarkyti - butinai idesiu i tax, gal kam pravers.

Pridedu savo makrosa - gal patarsit kurioje vietoje reikia tai iterpti?

Sub suved()
'
' suved Macro
' Macro recorded 2008.10.23 by Demo
'

'

Range("A15").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C+1"
Range("G5").Select
Selection.COPY
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+R[-11]C"
Range("G4").Select
Selection.COPY
Range("D15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E14").Select
Application.CutCopyMode = False
Range("G6").Select
Selection.COPY
Range("E15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F15").Select
Application.CutCopyMode = False
Range("F14").Select
Selection.AutoFill Destination:=Range("F14:F15"), Type:=xlFillDefault
Range("F14:F15").Select
Range("G14").Select
Selection.AutoFill Destination:=Range("G14:G15"), Type:=xlFillDefault
Range("G14:G15").Select
Range("G7:H7").Select
Selection.COPY
Range("H15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I15").Select
Application.CutCopyMode = False
Range("G8:H8").Select
Selection.COPY
Range("I15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A16").Select
Application.CutCopyMode = False
Range("G4").Select
Selection.ClearContents
Range("G6").Select
Selection.ClearContents
Range("G7:H7").Select
Selection.ClearContents
Range("G8:H8").Select
Selection.ClearContents
End Sub

Vel tikiuosi Jusu pagalbos:
Kaip pakoreguoti makrosa, kad ji kiekviena sekanti karta, "savo darba" atliktu vis eilute zemiau?
Sirdingai dekinga

Aciu uz pagalba

o gal žinot, kodėl ji gali neveikti?

atleiskit, o kuo tai susije su duomenu perkelimu is vienos celes i kita tame paciame doke?

Gal kas turit minčių, kodėl neveikia duomenų perkėlimui iš vieno sheeto į kitą naudojamaa formule =Sheet5!E15

Kas per temos pavadinimas! Akis drasko... darbuotojū

Ačiū viesiems! Gavosi!!! Tereikėjo prieš kopijuojant per VBA perkelti iš vieno doko į kitą modulius

Dėkoju už patarimus, bandysiu kažką gaminti...

Bandant spausti celes, kur turi veikti makrosas, atsidaro visual basic langas ir Išmeta klaidą - Compile error: SUB or Function not defined

gal kas galėtų patarti ką čia aš ne taip padariau?

Visaip bandau, bet perkelus neveikia makrosas

Sveiki,
gal kas žinote, kaip visa excel dokumentą perkelti į kito doko sheetą, jei pirminis dokas yra su makrosais, kad makrosai veiktu?

kaip mane informavo VMI - is PVM permokos negalima uzskaityti GPM.