Excel
A
2012-11-16 19:37
arunas23
[quote=Helppp]
rašė: Sveiki, kas gali padėti, padėtis labai paprasta, tik nemoku padaryti
1. Kaip galima padaryti, kad pildant SF excelyje viename lape, o duomenys kitame excelio padarytoje lentelėje (Įmonės pavadinimas, kodas, PVM kodas, adresas išsisaugotu???
2. SF išsisaugotu prie įmonės pavadinimo kitame failiuke???
3. SF numeriukas keistusi paspaudus išsaugoti failiuką pagal eiliškumą.
Dėkoju iš anksto už pagalbą.
Yra keli failiukas rasti čia, bet ten nesimato formulės, kaip tai padaryta
Ikelk cia pvz ka jau turi - padarysim ko reikia...
rašė: Sveiki, kas gali padėti, padėtis labai paprasta, tik nemoku padaryti
1. Kaip galima padaryti, kad pildant SF excelyje viename lape, o duomenys kitame excelio padarytoje lentelėje (Įmonės pavadinimas, kodas, PVM kodas, adresas išsisaugotu???
2. SF išsisaugotu prie įmonės pavadinimo kitame failiuke???
3. SF numeriukas keistusi paspaudus išsaugoti failiuką pagal eiliškumą.
Dėkoju iš anksto už pagalbą.
Yra keli failiukas rasti čia, bet ten nesimato formulės, kaip tai padaryta
Ikelk cia pvz ka jau turi - padarysim ko reikia...
A
2012-11-16 19:37
arunas23
Lea rašė:
ar ekselyje įmanoma formulės pagalba iš ilgo prekių sąrašo "delet'inti" tuščias eilutes? nes noriu paleisti filtrą, o iš programos ekselį formuoja taip, kad prie prekės yra po 2 eilutes, kur viena užpildyta, o kita tuščia
Ikelk cia pvz ka jau turi - padarysim ko reikia...
Lea rašė:
ar ekselyje įmanoma formulės pagalba iš ilgo prekių sąrašo "delet'inti" tuščias eilutes? nes noriu paleisti filtrą, o iš programos ekselį formuoja taip, kad prie prekės yra po 2 eilutes, kur viena užpildyta, o kita tuščia
Ikelk cia pvz ka jau turi - padarysim ko reikia...
ABA2
1824
2012-11-16 22:30
ABA2
2012-11-18 17-14
Lea rašė:
ar ekselyje įmanoma formulės pagalba iš ilgo prekių sąrašo "delet'inti" tuščias eilutes? nes noriu paleisti filtrą, o iš programos ekselį formuoja taip, kad prie prekės yra po 2 eilutes, kur viena užpildyta, o kita tuščia
Paprasčiausias variantas-per filtrą.Keturi paspaudimai.
Excel 2003 atrodytų taip: www.failai.lt/6aqzvx22ng64/Slepiame_eilutes.pdf.htm
Excel 2007 panašiai,tik reikia susirasti autofiltrą.
________________
Yra ir kitas variantas-su VBA.Turi būti įjungtas macro komandų leidimas ir trumpas kodas atidarant knygą tuščias eilutes trins automatiškai(šis variantas tinka,kuomet duomenys pastoviai įkraunami į tą pačią excelio knygą).Jei duomenys įkeliami kaskart į naują knygą-reikia kodą pririšti prie mygtuko,kuris talpinamas excelio panėlėje(trinimas atliekamas vienu veiksmu).VBA kodui reikalinga pamatyti DB išdėstymą-užtenka trijų keturių eilučių.
Lea rašė:
ar ekselyje įmanoma formulės pagalba iš ilgo prekių sąrašo "delet'inti" tuščias eilutes? nes noriu paleisti filtrą, o iš programos ekselį formuoja taip, kad prie prekės yra po 2 eilutes, kur viena užpildyta, o kita tuščia
Paprasčiausias variantas-per filtrą.Keturi paspaudimai.
Excel 2003 atrodytų taip: www.failai.lt/6aqzvx22ng64/Slepiame_eilutes.pdf.htm
Excel 2007 panašiai,tik reikia susirasti autofiltrą.
________________
Yra ir kitas variantas-su VBA.Turi būti įjungtas macro komandų leidimas ir trumpas kodas atidarant knygą tuščias eilutes trins automatiškai(šis variantas tinka,kuomet duomenys pastoviai įkraunami į tą pačią excelio knygą).Jei duomenys įkeliami kaskart į naują knygą-reikia kodą pririšti prie mygtuko,kuris talpinamas excelio panėlėje(trinimas atliekamas vienu veiksmu).VBA kodui reikalinga pamatyti DB išdėstymą-užtenka trijų keturių eilučių.
ABA2
1824
2012-11-18 17:12
ABA2
Solver'is pirmiausia,aktyvuojamas per excelio Add-Ins.Paskui jam padedant ir ieškoma sprendimų būdų pagal turimą duomenų bazę.Paleidus Solver,pasileis specialus sprendimų paieškos vedlys,prieš tai-skaičiuoklės lakšte parengiamas uždavinio modelis,jame nurodomos optimizuojamos tikslo funkcijos,funkcijų pradinės reikšmės ir nelygybių argumentai.Su Solver'iu patogu ieškoti sprendimų,kai parametrų skaičius nedidelis.Prie didesnių parametrų naudojamos specialios optimizavimo uždavinių sprendimo programos-tokių neturiu,dar neprireikė,nes užtekdavo Solverio'io pajėgumo.
I
2012-11-18 18:03
IRUTE78
Pavyzdžiui turiu per mėnesį n Ltr kuro, n kaina, kuras panaudojamas n objektų, skirtinguose miestuose, galvoju ar Solver pagalba eitų padaryti paskirstymą ?
ABA2
1824
2012-11-18 23:25
ABA2
Ko paskirstymą?Su Solver pagalba,jei kalbame apie transporto padalinį, galima parengti optimalų pervežimo planą ir ir sumažinti transporto kaštus.
Skirstyti kurą ar pinigus išlaidoms apskaičiuoti galima formulėmis arba macro komandomis.
Medžiotojas,eidamas medžioti šerno,juk nesitempia pabūklo į mišką...Teisingai,pasiima tik gerai suteptą šautuvą.
Skirstyti kurą ar pinigus išlaidoms apskaičiuoti galima formulėmis arba macro komandomis.
Medžiotojas,eidamas medžioti šerno,juk nesitempia pabūklo į mišką...Teisingai,pasiima tik gerai suteptą šautuvą.
ABA2
1824
1
2012-11-18 23:44
ABA2
O jei dirbame su transporto įmonėmis,apimtys didelės-reikėtų įsigyti Finvaldos programą.Excelyje pasiklysite,negelbės nei pivot,nei solver.
L
2012-11-19 09:22
Lea_deleted
va pvz ataskaita iš programos - kiekvienai prekei skirta po dvi eilutes...Lišnus stulpelius išmesti ranka ne problema, o vat eilučių, jeigu lapų kokių 37, jau bėda...O kai uždėdi autofiltrą tos tuščio eilutės maišo...
bookas.xlsx
Luka_Paciolis
3887
2012-11-19 09:58
Luka_Paciolis
Laba diena, Lea
kažin ar forume pavyks išspręsti šią problemą, kuri ir mane erzina. Reikia kreiptis į Rivilės programuotojus ir tik jie manau padės Rivilės importuotas ataskaitas paversti į teisingą excel failą. Praktiškai dabar visas failas verčiames pagal nustatymus text nustatymo kategorijoje.Todėl ir negalima nusistatyri kitų funkcijų, t.t. ir pašalinti nereikalingas eilutes.
kažin ar forume pavyks išspręsti šią problemą, kuri ir mane erzina. Reikia kreiptis į Rivilės programuotojus ir tik jie manau padės Rivilės importuotas ataskaitas paversti į teisingą excel failą. Praktiškai dabar visas failas verčiames pagal nustatymus text nustatymo kategorijoje.Todėl ir negalima nusistatyri kitų funkcijų, t.t. ir pašalinti nereikalingas eilutes.
ABA2
1824
2012-11-19 13:50
ABA2
Lea rašė:
va pvz ataskaita iš programos - kiekvienai prekei skirta po dvi eilutes...Lišnus stulpelius išmesti ranka ne problema, o vat eilučių, jeigu lapų kokių 37, jau bėda...O kai uždėdi autofiltrą tos tuščio eilutės maišo...
Pažiūrėjau.Sujungtos(merge) lastelės Excel'yje yra BLOGYBĖ.O nevienodas lastelių sujungimo aukštis eilutėje pagal stulpelius-DIDELĖ BLOGYBĖ.
Lea rašė:
va pvz ataskaita iš programos - kiekvienai prekei skirta po dvi eilutes...Lišnus stulpelius išmesti ranka ne problema, o vat eilučių, jeigu lapų kokių 37, jau bėda...O kai uždėdi autofiltrą tos tuščio eilutės maišo...
Pažiūrėjau.Sujungtos(merge) lastelės Excel'yje yra BLOGYBĖ.O nevienodas lastelių sujungimo aukštis eilutėje pagal stulpelius-DIDELĖ BLOGYBĖ.
I
2012-11-19 14:06
IRUTE78
Kai parenki ataskaitos spausdinimą Rivilėje, ir dedi tašką ant MS Exel atsakaita, išsaugo ataskaitą be jokių papildomų celių. Turit teisingai padaryti exportą iš programos.
Luka_Paciolis
3887
2012-11-19 14:26
Luka_Paciolis
IRUTE78 rašė:
Kai parenki ataskaitos spausdinimą Rivilėje, ir dedi tašką ant MS Exel atsakaita, išsaugo ataskaitą be jokių papildomų celių. Turit teisingai padaryti exportą iš programos.
Irute, tai neturi reikšmės ar uždėsi taškiuką ar ne. Kaip ir neturi reikšmės teisingai padaryti eksportą iš programos. Tiesiog jie su tuo excel sumalė šū... ir tiek,taip jie pinigaujasi, jei nori kad gautum teisingą ataskaitą excel jie tai atliks už pinigus 
Pats nieko nepadarysi. Paklausus kam apskritai tada tokios galimybės imituojamos jie atsakė gal norės klientas atskirų ataskaitų tai tarsi nuorodą, kad jie gali už atitinkamą mokestį pvz. 100 Lt tau padaryti normalų konvertavimą. 
IRUTE78 rašė:
Kai parenki ataskaitos spausdinimą Rivilėje, ir dedi tašką ant MS Exel atsakaita, išsaugo ataskaitą be jokių papildomų celių. Turit teisingai padaryti exportą iš programos.
Pats nieko nepadarysi. Paklausus kam apskritai tada tokios galimybės imituojamos jie atsakė gal norės klientas atskirų ataskaitų tai tarsi nuorodą, kad jie gali už atitinkamą mokestį pvz. 100 Lt tau padaryti normalų konvertavimą.
L
L
2012-11-19 16:49
Lea_deleted
ABA2 rašė:
Pažiūrėjau.Sujungtos(merge) lastelės Excel'yje yra BLOGYBĖ.O nevienodas lastelių sujungimo aukštis eilutėje pagal stulpelius-DIDELĖ BLOGYBĖ.
Sakykime, aš darau paste-copy tik Value kitame lape. Formatas - ok. Lieka tik tuščios eilutės.
Ar yra vilties su jom susitvarkyti automatu?
bookas.xlsx
ABA2 rašė:
Pažiūrėjau.Sujungtos(merge) lastelės Excel'yje yra BLOGYBĖ.O nevienodas lastelių sujungimo aukštis eilutėje pagal stulpelius-DIDELĖ BLOGYBĖ.
Sakykime, aš darau paste-copy tik Value kitame lape. Formatas - ok. Lieka tik tuščios eilutės.
Ar yra vilties su jom susitvarkyti automatu?
bookas.xlsx
ABA2
1824
2012-11-19 17:28
ABA2
2012-11-19 17-37
Galima.Lapo skirtuke(kur reikia naikinti tuščias eilutės ir nėra sujungtų langelių)dešiniu pelės mygtuku spaudžiame,pasirenkame_View code_.Atsidaro VBA langas,pasirenkame kairėje skirtuką_ThisWorkbook_ir dideliame lange įklijuojame šį kodą:
rašė: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 2) = "" Then Rows(iRow).Delete
Next iRow
End Sub
Uždarome VBA langą.Lape bent kuriame langelyje pele kairiu mygtuku dvigubas paspaudimas -naikinamos tuščios eilutės .Veiks bent kuriame lape,kur nėra sujungtų langelių.
P.S. Pirma kodo eilutė_Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)_ turi būti rašoma viena vientisa eilute-čia ekrane netelpa,o VBA kompiliatoriaus lange tilps.
rašė: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 2) = "" Then Rows(iRow).Delete
Next iRow
End Sub
Uždarome VBA langą.Lape bent kuriame langelyje pele kairiu mygtuku dvigubas paspaudimas -naikinamos tuščios eilutės .Veiks bent kuriame lape,kur nėra sujungtų langelių.
P.S. Pirma kodo eilutė_Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)_ turi būti rašoma viena vientisa eilute-čia ekrane netelpa,o VBA kompiliatoriaus lange tilps.
L
ABA2
1824
2012-11-19 19:41
ABA2
2012-11-22 08-30
Kai kuriais atvėjais,kodo pririšimas prie pelės dvigubo paspaudimo gali būti nepatogus:redaguojant informaciją ar dėl kitko.Triname aną kodą ir ten pat įdedame kitą,veikianti nuo F12 paspaudimo:
rašė: Private Sub Workbook_Open()
Application.OnKey "{F12}", "ThisWorkBook.Trinti"
End Sub
Private Sub Trinti()
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 2) = "" Then Rows(iRow).Delete
Next iRow
End Sub
Uždarome knygą ir paleidžiame iš naujo.Veiks visuose knygos lapuose,paspaudus F12
rašė: Private Sub Workbook_Open()
Application.OnKey "{F12}", "ThisWorkBook.Trinti"
End Sub
Private Sub Trinti()
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 2) = "" Then Rows(iRow).Delete
Next iRow
End Sub
Uždarome knygą ir paleidžiame iš naujo.Veiks visuose knygos lapuose,paspaudus F12
ritak
399
2012-11-20 09:49
ritak
NOLINA rašė:
atsiųsk failą ar tą formą, pažiūrėsiu aš ar wolf ar dar kas kitas
to Wertis:
Siunčiu failiuką kuriame reikia tai padaryti aišku jis dar nebaigtas, bet gal suprasit kas kur.
Sveiki. Reikia pakoreguoti PPK Nolinos pagal naują pavyzdį, gal galit padėti
4309-ppkvitas_original.xls
NOLINA rašė:
atsiųsk failą ar tą formą, pažiūrėsiu aš ar wolf ar dar kas kitas
to Wertis:
Siunčiu failiuką kuriame reikia tai padaryti aišku jis dar nebaigtas, bet gal suprasit kas kur.
Sveiki. Reikia pakoreguoti PPK Nolinos pagal naują pavyzdį, gal galit padėti
4309-ppkvitas_original.xls
Tax.lt © 2002 - 2025, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui