[es] - Kopiranje lista na kraju sveske

zoograf

Član broj: 65027
Poruke: 69
66.230.230.*

Profil

^{18.05.2008. u 00:04 - pre 193 meseci}

Kako da mi Exeel 07 kopira sheet4 (osnovni sheet ) na kraj radne sveske npr u neki sheet15 i da u određeno polje ubaci sutrašnji dan a u susedno sutrašnji datum (sheet - Sutra ).Zašto ovako.Prvih šest sheetova su mi radna i svakodnevno ih koristim.Sledeći sheet7 je kopija sheeta 4 (osnovnog) ali od pre nekoliko dana,(npr.10.05.08.)sledeći sheet8 je kopija sheeta4 ali za naredni dan (11.05.08.) i tako sve do današnjeg datuma.Ovi sheetovi ( sheet7,sheet8,sheet9... su za jednokratnu tj sedmičnu upotrebu i posle ih (prvo arhiviram ) pa brišem tj kad ih se nakupi toliko da do poslednjeg u nizu tj sutrašnjeg treba da tab - anam do kraja.Ali tako i imam i uvid kada ih je nepotrebno mnogo što možda ne bih video kad bi makro kopirao taj sheet Sutra posle ovih prvih šest sheetova jer bi se onda ostali gomilali u desno a fajl se samo povećavao (ko bi se setio da gleda tabove na kraju koji više netrebaju ali i ne smetaju.
Ok rezime. makro ? - create a copy and move to end + sutrašnji datum + dam.
Pozdrav.

Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
79.101.235.*

+1 Profil

Re: Kopiranje lista na kraju sveske

^{18.05.2008. u 00:36 - pre 193 meseci}

Citat:

zoograf: Kako da mi Exeel 07 kopira sheet4 (osnovni sheet ) na kraj radne sveske npr u neki sheet15

Code:

    Sheets("Sheet4").Select
    Sheets("Sheet4").Copy After:=Sheets(Worksheets.Count)
    Sheets(Worksheets.Count).Select
    Sheets(Worksheets.Count).Name = "Sheet15"

Datum u određeno polje takođe možeš da upišeš preko makroa.

Meni uopšte nije jasno šta ti hoćeš gde da kopiraš, i sve mi liči na čudnu organizaciju podataka.

1. Zašto radne listove (sheet) ne nazivaš po datumu na koji se odnose? Tako bi bez otvaranja znao koji je koji.
2. Zar nije logičnije da novi datumi dođu na početak, ispred starijih?

_{[Ovu poruku je menjao Brz_na_tastaturi dana 18.05.2008. u 01:51 GMT+1]}

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...

Odgovor na temu

zoograf

Član broj: 65027
Poruke: 69
*.csd.uoc.gr.

Profil

Re: Kopiranje lista na kraju sveske

^{18.05.2008. u 12:20 - pre 193 meseci}

Citat:

Brz_na_tastaturi:

Code:

    Sheets("Sheet4").Select
    Sheets("Sheet4").Copy After:=Sheets(Worksheets.Count)
    Sheets(Worksheets.Count).Select
    Sheets(Worksheets.Count).Name = "Sheet15"

1. Radne listove i zovem po datumu na koji se odnose.I bez otvaranja znam koji je koji.
2.Ako noviji datumi dođu na početak,a stariji posle njih, stariji će mi puniti desnu stranu i njih ću brisati verovatno tek kad se setim a ovako ako mi najnoviji datum dođe na kraj on će me podsetiti da one stare brišem ( kad vidim njega na kao poslednji sheet videću i da li ta sveska ima punu listova.) nadam se da sam sad bolje objasnio.
E sad za makro koji upisuje sutrašnji dan i sutrašnji datum ,ako može opet pomoć.
PS. Nemogu sad trenutno da probam ovaj tvoj kod .

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.

Profil

Re: Kopiranje lista na kraju sveske

^{18.05.2008. u 14:52 - pre 193 meseci}

Re,
kao sto kaze Brzi nerazumem tvoju logiku, nije vazno svako se snalazi kako ume.

ova koda ti daje sutrasnji dan i datum

Code:
Sub SutrasnjiDatum()
MsgBox "Sutrasnji dan i datum je > " & Format(Date + 1, "DDDD DD MMMM YYYY") & " !", vbInformation
End Sub

inace nebi bilo lose proci preko variable "promenjlive" tako da sutrasnji dan i datum mozes koristiti u bilo kome delu kode

Code:
Sub SutrasnjiDatum()
Dim TheDay As Date
TheDay = Date + 1
MsgBox "Sutrasnji dan i datum je > " & Format(TheDay, "DDDD DD MMMM YYYY") & " !", vbInformation
End Sub

Pozdrav

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

zoograf

Član broj: 65027
Poruke: 69
*.toniob.net.

Profil

Re: Kopiranje lista na kraju sveske

^{19.05.2008. u 22:23 - pre 193 meseci}

Kako bi to bilo u tabeli gde je A1 datum u formatu 19.05. a B1 Ponedeljak .

Prikačeni fajlovi

elite.xlsx - 9.68k

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.

Profil

Re: Kopiranje lista na kraju sveske

^{20.05.2008. u 22:30 - pre 193 meseci}

ovako

Code:
Option Explicit

Sub DanDatum()
Dim dan As String
Dim datum As Date
datum = Sheets("Sheet1").Range("A1").Value
dan = Sheets("Sheet1").Range("B1").Value
MsgBox "Datum upisan u celiji A1 je > " & Format(datum, "DD.MM") & vbCrLf & _
"Dan upisan u celiji B1 je > " & dan, vbInformation
End Sub

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

zoograf

Član broj: 65027
Poruke: 69
*.kodar.co.yu.

Profil

Re: Kopiranje lista na kraju sveske

^{22.05.2008. u 16:49 - pre 193 meseci}

Negde sigurno grešim jer mi samo izađe MsgBox "Datum upisan u celiji A1 je .... ali mi ne ubaci u polja A1 i B1 traženi dan i datum.

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.

Profil

Re: Kopiranje lista na kraju sveske

^{23.05.2008. u 08:26 - pre 193 meseci}

Re,

Da skratimo komplikacije i uzaludno gubljenje vremena ,
- sta ustvari hoces ?
- dalise uopste razumes u koriscenju makro komandi ?
- trebati pomoc za nesto sto neuspevas da odradis sam ili kluč u ruke ?

Kode kojesi dobijo od Brzog i mene su dovoljne da odrade ono stosi zamislio ( trebaih samo sastaviti ) ili zelis da mi to uradimo tako nemas da lupas glavu.
Sasvim je normalno da dobivas samo msgbox jer primer kojisam napisao sluzi dati pokaze kako pokupiti vrednosti iz celija tj. datum i dan

Pozdrav

PS: HVALA na pitanju !!!

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

zoograf

Član broj: 65027
Poruke: 69
*.kodar.co.yu.

Profil

Re: Kopiranje lista na kraju sveske

^{23.05.2008. u 18:06 - pre 193 meseci}

Citat:

Gix_: Re,

Da skratimo komplikacije i uzaludno gubljenje vremena ,
- sta ustvari hoces ?
- dalise uopste razumes u koriscenju makro komandi ?
- trebati pomoc za nesto sto neuspevas da odradis sam ili kluč u ruke ?

Kode kojesi dobijo od Brzog i mene su dovoljne da odrade ono stosi zamislio ( trebaih samo sastaviti ) ili zelis da mi to uradimo tako nemas da lupas glavu.
Sasvim je normalno da dobivas samo msgbox jer primer kojisam napisao sluzi dati pokaze kako pokupiti vrednosti iz celija tj. datum i dan

Pozdrav

PS: HVALA na pitanju !!!

Dal se to zove pomoć ili ključ u ruke ne znam zato sam i pitao na ovom forumu.
Nisam znao da kode "treba samo sastaviti" jer tek učim i lupam glavu.
Hvala na trudu i uzaludno izgubljenom vremenu.
Eto skratismo komplikacije.

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.

Profil

Re: Kopiranje lista na kraju sveske

^{24.05.2008. u 01:12 - pre 193 meseci}

Re,
vidis i sam nije nista komplikovano da objasnis jos u prvom postu dasi pocetnik
jer time olaksavas i sebi i drugima rad na tvom problemu pa umesto da dobivas delove kode
dobices kompletno resenje. Obicno ljudi koji traze pomoc za makro komande ako ne preciziraju dasu pocetnici
dobivaju delove kode jer za resto se snalaze sami.

Akosam dobro razumeo stati treba kompletna koda bi licila na ovako nesto
u isto vreme imas i komentare uz svaku liniju , tako mozes lakse razumeti strukturu kode .
Prekopiraj kompletnu kodu u jednom od tvoih modula

Cao

Code:
Option Explicit 'obavezna deklaracija variable "promenjljivih"
Const G As String = "Elitesecurity" 'ime za msgbox-ove nije obavezno

Sub KopijaLista() 'ime komande
Dim datum As Date, dan As Date 'deklaracija variable za datum i dan
Dim list As String 'deklaracija variable radnog lista
   On Error GoTo 1 'tretiranje greske (u slucaju greske ici na liniju 1)

datum = Date + 1 'variabla datum dobiva vrednost danasnjeg datuma + 1 dan
dan = Date + 1   'variabla dan dobiva vrednost danasnjeg dana + 1 dan
list = Sheets(Worksheets.Count).Name 'variabla list dobiva ime (vrednost) zadnjega lista u radnoj svesci

    Sheets("Sheet4").Select 'selekcionisati list4
    Sheets("Sheet4").Copy After:=Sheets(Worksheets.Count) 'kopirati list4 i postaviti na kraju radnih listova
    Sheets(Worksheets.Count).Select 'selekcionirati zadnji list
    Sheets(Worksheets.Count).Name = "Sheet15" 'dodeliti ime zadnjem listu

        Sheets("Sheet15").Range("A1").Value = Format(datum, "dd/mm") 'upisati sutrasnji datum list15 celija A1
        Sheets("Sheet15").Range("B1").Value = Format(dan, "dddd")    'upisati sutrasnji dan list15 celija B1

On Error GoTo 0 'vratiti gresku na nulu
Exit Sub 'izaci iz procedure

1 'linija 1 u slucaju ako radni list15 vec postoji

Application.DisplayAlerts = False 'dezaktivirati DialogBox
ActiveSheet.Delete 'suprimiranje lista
Application.DisplayAlerts = True 'aktivirati DialogBox
MsgBox "Ovo ime Radnog Lista vec postoji ! >  " & list, vbCritical, G 'poruka ili msgbox za informaciju
Sheets("Sheet4").Select 'selekcionisanje lista4

End Sub 'kraj komande

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu