Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Specifikacija novca

[es] :: Office :: Excel :: Specifikacija novca

[ Pregleda: 449 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

jmilovic
Jugoslav Milovic
Zajecar

Član broj: 47120
Poruke: 29
109.106.237.*



Profil

icon Specifikacija novca16.12.2021. u 22:00 - pre 6 meseci
Pozdrav drustvo,

treba mi jedna tabelica za menjačnicu,
naime ovlašćeni menjači imaju obavezu da na kraju svakog dana naprave specifikaciju svih
valuta i to po apoenskoj strukturi, mi smo to radili ručno u svesci pa sam došao na ideju da
napravim excel tabelicu za to. Evo kako izgleda otprilike ono što mi je potrebno, medjutim ne
znam kako da napravim da pri otvaranju novog datuma/reda otvori i nove ove "medju redove".

U ostalom prilažem tabelu pa ako ima nekog voljnog da pomogne...


Prikačeni fajlovi
 
Odgovor na temu

djux66
Beograd

Član broj: 66577
Poruke: 67
147.91.111.*

Sajt: www.mmveriga.co.rs


+9 Profil

icon Re: Specifikacija novca17.12.2021. u 12:12 - pre 6 meseci
Samo selektuj datum i međuredove sve do zadnje kolone M, i prevuci tj iskopiraj nadole.
Kad to uradiš odaberi u onom popup meniju da ti ne pravi seriju, nego samo da kopira podatke.
Možda je najbolje da napraviš 31 ovakav red, pa kopiraš Sheet za svaki mesec i imaš jedan Workbook - excel fajl za svaku godinu.


 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Specifikacija novca17.12.2021. u 15:36 - pre 6 meseci
Ja bi isto uradio kao što kolega @djux66 savjetuje u postu iznad. (desnom tipkom miša uhvatiš za "FillHandle -> Copy Cells")
Evo ti VBA makronaredba, ako želiš klikati :)
Sličan VBA sam nekada koristio za druge svrhe, pa sam prilagodio tvom zahjevu.
Code:

Sub CopyPasteRange()
  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet

Rows.Range("A3:A11").EntireRow.Hidden = False

  Set copySheet = Worksheets("Sheet1")
  Set pasteSheet = Worksheets("Sheet1")

  copySheet.Range("A3:M11").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
  
Rows.Range("A3:A11").EntireRow.Hidden = True

Cells(104536, 1).End(xlUp).Offset(0, 0).Select 'za Excel 2007 i noviji

  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub
Sigurno postoji elegantniji način.
Uoči u primjeru da je ROWS 3:11 Hidden (skriveni). Oni se u stvari kopiraju pri svakom kliku na VBA button.
Nakon kopiranja range, u stupcu 'A' merged ćelija je obojana crvenom bojom.
Kada upišeš datum boja nestane (ovo je samo "kontrola" da bi obratio pažnju i upisao datum)
Prikačeni fajlovi
 
Odgovor na temu

jmilovic
Jugoslav Milovic
Zajecar

Član broj: 47120
Poruke: 29
109.106.237.*



Profil

icon Re: Specifikacija novca17.12.2021. u 16:27 - pre 6 meseci
@djuxx66

I meni je pala na pamet ta ideja sa kopiranjem sadrzaja 31 put pa posle sheetovi po mesecima, ali
mi se malo ne dopada to rešenje.

@Ivek33

To je to što sam i zamišljao. Hvala puno
 
Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3187

Jabber: djoka_l


+1369 Profil

icon Re: Specifikacija novca17.12.2021. u 16:43 - pre 6 meseci
Tvoja tabela ne valja:
Švajcarski franak nema papirne apoene od 1 i 5 franaka, a ima 1000 CHF
Euro nema papirni apoen od 1 EUR
Američki dolar ima papirni apoen od 2 USD, a nema 200 i 500
RSD nema 1 i 5 u papiru, a nedostaje 1000, 2000 i 5000

 
Odgovor na temu

jmilovic
Jugoslav Milovic
Zajecar

Član broj: 47120
Poruke: 29
109.106.237.*



Profil

icon Re: Specifikacija novca17.12.2021. u 22:35 - pre 6 meseci
@djoka_l
Znam, ovo sam postavio čisto kao kostur, video sam tek kada sam isprobao prvi put u praksi tj.
da prepišem jedan dan iz sveske :D
 
Odgovor na temu

[es] :: Office :: Excel :: Specifikacija novca

[ Pregleda: 449 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.