Excel

nerijus nerijus 2474
2008-10-22 16:19 nerijus
sorry, aš čia apie celę iš kito failo :)
ziile ziile 355
2008-10-22 16:21 ziile
o gal žinot, kodėl ji gali neveikti?
R
roplius 17
2008-10-23 16:21 roplius 2011-09-11 06-00

ziile rašė: 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"
ziile ziile 355
2008-10-23 16:30 ziile
Aciu uz pagalba smile
ziile ziile 355
2008-10-23 19:40 ziile
Vel tikiuosi Jusu pagalbos:
Kaip pakoreguoti makrosa, kad ji kiekviena sekanti karta, "savo darba" atliktu vis eilute zemiau?
Sirdingai dekinga smile
W
Wyshniux 673
2008-10-23 20:46 Wyshniux 2011-09-11 06-00

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


hm , aš dėčiau ciklą smile, 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
ziile ziile 355
2008-10-23 22:05 ziile
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
Tiesi Tiesi 4035
2008-10-23 22:14 Tiesi 2011-09-11 06-00
Uždavei man labai aktualų klausimą. Tik apie makrosus aš nė velnio neišmanau smile Todėl būtų gerai "nusirašyt" smile Kokį rezultatą duoda Tavo aukščiau įdėtas makrosas?


ziile rašė: Vel tikiuosi Jusu pagalbos:
Kaip pakoreguoti makrosa, kad ji kiekviena sekanti karta, "savo darba" atliktu vis eilute zemiau?
Sirdingai dekinga smile
ziile ziile 355
2008-10-23 22:24 ziile
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.
Tiesi Tiesi 4035
2008-10-23 22:25 Tiesi 2011-09-11 06-00
Jei įdėtum, būčiau labai dėkinga smile O makrosą pati rašei?


ziile rašė: 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.
ziile ziile 355
2008-10-23 22:30 ziile
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 smile
Tiesi Tiesi 4035
2008-10-23 22:32 Tiesi 2011-09-11 06-00
O jei gale įklijavus Vyšniux surašytą tekstą? Ką gautum?

ziile rašė: 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 smile
ziile ziile 355
2008-10-23 22:35 ziile
Bandziau virsuje irasyti, bet neveikia, nebeturiu kantrybes daugiau mucitis, nes visa diena vargstu smile
Gal rytoj kazkas pavyks.
Tiesi Tiesi 4035
2008-10-23 22:43 Tiesi 2011-09-11 06-00
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
smile

ziile rašė: Bandziau virsuje irasyti, bet neveikia, nebeturiu kantrybes daugiau mucitis, nes visa diena vargstu smile
Gal rytoj kazkas pavyks.
W
Wyshniux 673
2008-10-24 08:49 Wyshniux
Įmesk jei nesunku patį failiuką, jei tai ne "Visiškai slaptai"
A
ASENI 105
2008-10-24 10:28 ASENI
Laba diena.Gal galit padėt,ir pasakyt kaip excelyje nusistatyti kad nenumeruotu pirmo lapo? smile
ziile ziile 355
2008-10-24 10:32 ziile
Sveiki,
prisegu failiuka su tuo makrosu, gal galesite ji pakoreguoti... SF.xls
W
Wyshniux 673
2008-10-24 10:42 Wyshniux 2011-09-11 06-00

ASENI rašė: Laba diena.Gal galit padėt,ir pasakyt kaip excelyje nusistatyti kad nenumeruotu pirmo lapo? smile


Ma rods, kad standartiškai nelabai išeis, čia daugiau word'o navarotai smile
R
roplius 17
2008-10-24 11:55 roplius 2011-09-11 06-00

ziile rašė: Sveiki,
prisegu failiuka su tuo makrosu, gal galesite ji pakoreguoti...


Prisegtame failiuke makrosų nėra
W
Wyshniux 673
2008-10-24 12:04 Wyshniux 2011-09-11 06-00

roplius rašė:

ziile rašė: Sveiki,
prisegu failiuka su tuo makrosu, gal galesite ji pakoreguoti...


Prisegtame failiuke makrosų nėra


yra keli post'ai auksčiau smile
Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis
Tax.lt © 2002 - 2024, admin@tax.lt, Reklama tax.lt

Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui