[es] - Specifikacija novca

jmilovic
Jugoslav Milovic
Zajecar

Član broj: 47120
Poruke: 35
109.106.237.*

Profil

^{16.12.2021. u 22:00 - pre 28 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

Specifikacija kase.xlsx - 10.55k

Odgovor na temu

djux66
Beograd

Član broj: 66577
Poruke: 74
147.91.111.*

Sajt: www.mmveriga.co.rs

+9 Profil

Re: Specifikacija novca

^{17.12.2021. u 12:12 - pre 28 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.

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

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Specifikacija novca

^{17.12.2021. u 15:36 - pre 28 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

jmilovic-CopyPasteRange.xlsm - 20.02k

Odgovor na temu

jmilovic
Jugoslav Milovic
Zajecar

Član broj: 47120
Poruke: 35
109.106.237.*

Profil

Re: Specifikacija novca

^{17.12.2021. u 16:27 - pre 28 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: 3453

Jabber: djoka_l

+1462 Profil

Re: Specifikacija novca

^{17.12.2021. u 16:43 - pre 28 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: 35
109.106.237.*

Profil

Re: Specifikacija novca

^{17.12.2021. u 22:35 - pre 28 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