Specifikacija novca

Specifikacija novca 16.12.2021. u 22:00 · pre 59 meseci #1

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...

Specifikacija kase.xlsx10.55k

Re: Specifikacija novca 17.12.2021. u 12:12 · pre 59 meseci #2

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.

Potpis

Lanci, Kuke, Spojnice, Priveznice, Skopci, Hvataljke, Celicna uzad, Valjkasti lanci, Galovi Lanci MM Veriga d.o.o.
Agrorade atomizeri

Re: Specifikacija novca 17.12.2021. u 15:36 · pre 59 meseci #3

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)

jmilovic-CopyPasteRange.xlsm20.02k

Re: Specifikacija novca 17.12.2021. u 16:27 · pre 59 meseci #4

@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

Re: Specifikacija novca 17.12.2021. u 16:43 · pre 59 meseci #5

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

Re: Specifikacija novca 17.12.2021. u 22:35 · pre 59 meseci #6

@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

Srodne teme