Excel

sorry, aš čia apie celę iš kito failo :)

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

O koks celės formatas nustatytas? Jei "Text", rodys pačią formulę, o ne jos rezultatą. Reikėtų, kad formatas būtų "General"

Aciu uz pagalba

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

hm , aš dėčiau ciklą , o jei rimtai tai pagal visą teksto surašymą +- supratau reikalo esmę, bet reiktų pradžiai į patį "macros'ą" pasižiūrėt

Range("A2").End(xlDown).Offset(1, 0).Select

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

Uždavei man labai aktualų klausimą. Tik apie makrosus aš nė velnio neišmanau Todėl būtų gerai "nusirašyt" Kokį rezultatą duoda Tavo aukščiau įdėtas makrosas?

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.

Jei įdėtum, būčiau labai dėkinga O makrosą pati rašei?

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

O jei gale įklijavus Vyšniux surašytą tekstą? Ką gautum?

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

Viršuje kažin ar gerai? Juk liepi nukopijuot, sudėt į kitą lapą ir ištrint esamus duomenis. Dėčiau arba prieš trynimą, arba iš karto po jo. Pamėgink, a? Nes Vyšniux dar neaišku kada čia atklys

Įmesk jei nesunku patį failiuką, jei tai ne "Visiškai slaptai"

Laba diena.Gal galit padėt,ir pasakyt kaip excelyje nusistatyti kad nenumeruotu pirmo lapo?

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

Ma rods, kad standartiškai nelabai išeis, čia daugiau word'o navarotai

Prisegtame failiuke makrosų nėra

yra keli post'ai auksčiau