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

VBA dopuna coda pomoć

[es] :: Office :: Excel :: VBA dopuna coda pomoć

Strane: 1 2

[ Pregleda: 2486 | Odgovora: 20 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon VBA dopuna coda pomoć18.10.2021. u 15:50 - pre 30 meseci
Pozdrav,

trebam pomoć znanaca u VBA imam cod koji radi ali trebam male izmjene.
VBA radi kad stisnem gumb arhiviraj i on stavi taj dokument u sheet arhiviraj.
obzirmo da planiram raditi i račune i ponude onda sam si zamislio zašto nebi mogao spremati odvojeno ponude na arhiva ponude, račune na arhiva računi.
stavio sam VBA code ali i privitak.



Code:
Private Sub arhiviraj()
'
' Makronaredba1 Makronaredba
'
YesNo = MsgBox("Spremno za arhivu?", vbYesNo + vbCritical, "Pazi")
Select Case YesNo
Case vbYes
 
Application.ScreenUpdating = False
'your code
Sheet2.Unprotect Password:="EG"
    Sheets("Racun-Ponuda").Select
    Range("A1:G55").Select
    'Selection.Copy
    Sheets("Arhiva").Select
    Range("A1").Select
        ActiveWorkbook.Worksheets("arhiva").Rows("1:55").Insert Shift:=xlDown
    ActiveWorkbook.Worksheets("arhiva").Activate
    Sheets("Racun-Ponuda").Select
    Range("A1:G55").Select
    Selection.Copy
    With Worksheets("arhiva")
                .Range("A1:G55").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    'Range("A1").Select
     .Range("A1:G55").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    End With
    Sheets("Racun-Ponuda").Select
    Range("A1").Select
    Range("f12").Value = Range("f12") + 1
    Sheet2.Protect Password:="EG"
Application.ScreenUpdating = True

Case vbNo
'Insert your code here if No is clicked
MsgBox ("Uh, zamalo si zeznuo stvar!! Pazi sto radis!")
End Select
    
  
    
End Sub
Prikačeni fajlovi
test22.xlsm test22.xlsm - 82.96k
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć19.10.2021. u 20:41 - pre 30 meseci
Ne znam zašto si se odlučio vršiti arhiviranje na taj način.
Nisam još vidio da netko kopira cijeli range i range by range lijepi na drugi sheet unutar iste WBK.
razmisli o drugačijem načinu arhiviranja.

U prilogu ove poruke nalazi se datoteka koja sadrži više načina arhiviranja. Nadam se da ćeš se snaći.
- Možeš arhivirati svaku ponudu ili račun u zasebnu datoteku u nekii folder a popis izdati računa opet možeš voditi na nekom sheetu.
Prikačeni fajlovi
taft-arhiviranje-ponude.xlsm taft-arhiviranje-ponude.xlsm - 116.6k
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć20.10.2021. u 10:39 - pre 30 meseci
Citat:
Ne znam zašto si se odlučio vršiti arhiviranje na taj način.

zato što nisam znao drugačije, pokušao sam iskoristiti što sam znao.

Hvala Ivek pogledam ovo što si mi ponudio.

Ivek pitanje dodatno polje F3 dali se to može automatizirati.

ovako kad stisnem arhiviraj ponudu da to polje bude slijedeći redni broj po redu, isto i za raćune.
teško je napisati što sam zamislio

želim dobiti kad stisnem arhiviraj ponudu da se promjeni broj ponude(f12) za +1 ali da to ne računa za broj računa i obrnuto.
znači polje f 12 je ponuda 1 nakon arhiviraj je ponuda 2.
kad prebacim b12 na račun tu bi trebalo ići od br 1 pa istim korakom arhiviraj račun +1 up.
Dali je to moguče izvesti?

[Ovu poruku je menjao Taft dana 20.10.2021. u 12:26 GMT+1]
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć20.10.2021. u 15:17 - pre 30 meseci
Vjerojatno si mislio na ćeliju F12/F13 (U principu ja izbjegavam Merge Cells u radu)
Dodao sam nekoliko stavki na Sheet 'Brojač' sa kojeg se formulom povlači slijedeći redni broj zavisno od ponuda/račun.

Prikačeni fajlovi
taft-arhiviranje-ponude2.xlsm taft-arhiviranje-ponude2.xlsm - 119.09k
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć20.10.2021. u 15:47 - pre 30 meseci
Citat:
Vjerojatno si mislio na ćeliju F12/F13 (U principu ja izbjegavam Merge Cells u radu)


da to sam prvo promjenio :).


i HVALA na svako pomoći do sad
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć25.10.2021. u 12:03 - pre 30 meseci
Ivek,

Imam mali problemčić trebao bi da brojevi računa i predračuna idu po redu.
sad uzima sljedeči broj koji je na redu.
Dali je to izvedljivo?
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć25.10.2021. u 21:14 - pre 30 meseci
Ne razumijem te što nije ok?
Rekao si da želiš redne brojeve posebno za
- ponudu/predračun
- račun

Ovisi što si arhivirao, slijedeći broj će biti plus zadnjeg arhiviranog broja, zavisno jel ponuda ili račun.
Citat:
sad uzima sljedeči broj koji je na redu.
Pa zar nisi tražio redne brojeve?

Budi malo detaljniji i daj nekoliko primjera.
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć26.10.2021. u 10:45 - pre 30 meseci
kad si postavio takvo pitanje pogledao sam tvoj primjerak i on radi ok ja sam izgleda nešto sj....

kak se resetira brojevi da idu ponovno od 1?
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć26.10.2021. u 11:15 - pre 30 meseci
Citat:
kak se resetira brojevi da idu ponovno od 1?

Na Sheets 'Arhiva_predračuna' i 'Arhiva_računa' u ćeliju A2 upiši nulu (0) a ostalo neka bude prazno u istom redu.
ili
Ako želiš izbjeći taj prvi red ispod naslova da bude prazan, na Sheet 'Brojač' postavi ove formule
U ćeliju A3
Code:
=IF(ISNUMBER(VALUE(TRIM(IFERROR(IF(LEN(A2>10);LEFT(A2;SEARCH("-";A2)-1);A2);A2))))=FALSE;0;VALUE(TRIM(IFERROR(IF(LEN(A2>10);LEFT(A2;SEARCH("-";A2)-1);A2);A2))))

U ćeliju B3
Code:
=IF(ISNUMBER(VALUE(TRIM(IFERROR(IF(LEN(B2>10);LEFT(B2;SEARCH("-";B2)-1);B2);B2))))=FALSE;0;VALUE(TRIM(IFERROR(IF(LEN(B2>10);LEFT(B2;SEARCH("-";B2)-1);B2);B2))))
Prikačeni fajlovi
taft-arhiviranje-ponude3.xlsm taft-arhiviranje-ponude3.xlsm - 118.8k
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć29.10.2021. u 07:32 - pre 30 meseci
Hvala Ivek to je to.
Ispričavam se na duljem odgovoru ali naš A1 šteka :)
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć03.11.2021. u 08:21 - pre 29 meseci
evo mene ponovno :)

malo od gripe nisam stigao raditi po ovome.

Ivek ista tema problem sa redoslijedom računa.
Ovo što si narpavio radi odlično i redoslijed ide po rednom broju, ali ono što mi nije dobro i trebalo bi se ispraviti ako se može da računi uvijek idu po rednom broju.
vidjeti češ u primjeru.

znači ako imam račun br 1 onda ga arhiviram i on je broj 1 ,ali ako radim ponudu iza tog računa ponuda je broj 2 slijedeći račun je tek broj 3.
nedostaje mi broj 2 računa.

nadam se da sam sad bolje objasnio.
Prikačeni fajlovi
Copy of taft-arhiviranje-ponude3.xlsm Copy of taft-arhiviranje-ponude3.xlsm - 117.66k
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć03.11.2021. u 13:35 - pre 29 meseci
Sorry ali ja tebe ne razumijem u potpunosti.
Uvijek ide prvo ponuda pa na osnovu toga ide račun.
Ne možeš izdati račun a da ni si dao ponudu (ako si tako organizirao rad vezan za ponuda/račun).

Uzmimo da krenemo od nule.

Istog dana imao si 4 upita za ponudu različitih proizvoda.
1. klijentu 'A' poslao si ponudu broj '1'
2. klijentu 'B' poslao si ponudu broj '2'
3. klijentu 'C' poslao si ponudu broj '3'
4. klijentu 'D' poslao si ponudu broj '4'

Dakle poslao si 4 ponude ali nijedan račun.

Nakon određenog vremena klijent 'D' ti se javi i želi kupiti proizvode po ponudi broj '4'
Ti u ćeliji 'B12' sa padajućeg izbornika izabereš stavku "Račun BR.", u ćeliji 'F12' treba ti biti broj '1' jer je to prvi račun koji izdaje tvoja firma.
Kopiraš podatke iz ponude broj '4' isprintaš i klikneš "Arhiviraj račun" jer si završio posao. (sada u računu broj '1 imaš podatke za klijenta 'D' ali sa ponude broj 4).
Isprintaš i klikneš "Arhiviraj račun" jer si završio posao. Račun ti je arhiviran pod brojem 1.
Pošalješ račun klijentu i kada ti plati pošalješ mu robu.

Za desetak dana javi ti se klijent 'A' i kaže da se slaže sa kupnjom i traži da mu izdaš račun po ponudi broj '1' od tog i tog datuma, da ti avansno plati.
Ti u ćeliji 'B12' sa padajućeg izbornika izabereš stavku "Račun BR.", u ćeliji 'F12' treba ti automatski biti broj '2' jer je to drugi račun koji izdaje tvoja firma.
Kopiraš podatke iz ponude broj '1' i zalijepiš ih u račun broji '2' na sheet, isprintaš i klikneš "Arhiviraj račun" jer si završio posao. (sada u računu broj '2 imaš podatke za klijenta 'A' ali po ponudi broj '1' od tog i tog datuma)

itd, itd...

Napomena:
S obzirom da postoji opuno varijacija s obzirom na ponudu/račun postoji i puno varijanti (sve zavisi do tvoje organizacije rada)

npr:
- možeš izdati "ponudu/predračun" sa popisom 10-tak proizvoda (recimo ponuda broj '1'),
...kupac/klijent odluči da kupi samo 7 proizvoda sa te ponude. Na tebi je da odlučiš da li ćeš praviti novu ponudu sa novim brojem samo za tih 7 proizvoda i vezati račun za tu novu ponudu).
ili
...kupac/klijent odluči da kupi samo 7 proizvoda sa te ponude. Na tebi je da odlučiš da li ćeš bez obzira na promjene zahtjeva kupca raditi račun po toj ponudi ali izostaviti 3 proizvoda i vezati račun za broj već poslane ponude).

Ako ćeš uvijek raditi novu ponudu (u slučaju da dođe do izmjene zahtjeva kupca u odnosu na popis ponuđenih proizvoda) možda bi bilo dobro da dodaš još jednu rubriku na sheetu "Arhiva_racuna" pod nazivom "broj ponude" pa ćeš tako imati uvid za koju ponudu ti je vezan određeni broj računa.
Isto to možeš i na sheetu "Arhiva_predracuna"

Preširoko je to knjigovodstva i skladišno materijalno poslovanje (za to postoje profesionalin programi knjigovodstva).
btw: Imaj u vidu da ja nisam VBA programer, pa tako za novotarije morat ćeš tražiti pomoć od drugih.
LP
Prikačeni fajlovi
Copy of taft-arhiviranje-ponude4.xlsm Copy of taft-arhiviranje-ponude4.xlsm - 115.71k
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć04.11.2021. u 09:24 - pre 29 meseci
Citat:
Ivek33: Sorry ali ja tebe ne razumijem u potpunosti.
Uvijek ide prvo ponuda pa na osnovu toga ide račun.
Ne možeš izdati račun a da ni si dao ponudu (ako si tako organizirao rad vezan za ponuda/račun).
LP



Što nije bilo razumljiv?
Što se tiće ponuda i računa sve si to točno rekao.

Bez ponude nema računa i to stoji, ali to nije riješenje koje sam želio i pitao za pomoć (nevidim razlog font 20).
Ono što sam planirao je da nevezano sa br. ponude računi idu po rednom broju bez da ja ručno upisujem br računa.
Do sad je u primjeru koji si ti napravio MIX rednih brojeva.

Ako napravim ponudu i stisnem arhiviraj ta ponuda je br 1,druga ponuda je br 2, treča broj 3, tu nastaje sad taj problem o koji sam želio riješiti znači za ponudu br 2 koja je prošla recimo račun če biti tek broj 4 a ne br 1

Možda da odvojim sheet ponude i računi pa bi onda išlo po redu.

Pa svako arhiviranje će ići po redu.....


Ukoliko ti idem na živce možeš to i napisati slobodno, pomogao si mi u raznim situacijama i HVALA ti na tome.

HVALA je jedino što ti na forumu mogu napisati, uživo možda koja i piva bi pala :)
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć04.11.2021. u 12:59 - pre 29 meseci
Žao mi je što si moj post pogrešno shvatio. :(
Citat:
(nevidim razlog font 20).
to je samo zbog toga da bi naglasio ono što sam pisao.
Citat:
Ako napravim ponudu i stisnem arhiviraj ta ponuda je br 1,druga ponuda je br 2, treča broj 3, tu nastaje sad taj problem o koji sam želio riješiti znači za ponudu br 2 koja je prošla recimo račun če biti tek broj 4 a ne br 1

to je upravo ideja i razlog za uvećani font i jedno od mogućih rješenja
Citat:
Ukoliko ti idem na živce možeš to i napisati slobodno,
Uopće mi ne ideš na živce :), samo ja ne vidim drugačiji način rada, ili te dovoljno ne razumijem.
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć13.01.2022. u 14:15 - pre 27 meseci
evo mene opet po ovom pitanju uspio sam riješiti odvojeno ponudu od računa ali ...
uvjek ima taj ali :P

kad spremi u putanju koju smo postavili uvjek mi spremi sa brojem više znači ako je račun 1-1-1 on spremi kao Račun 2-1-1 traži sam po codu gdje da to promjenim ali nisam našao

Hvala na pomoči
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć13.01.2022. u 19:25 - pre 27 meseci
U VBE, Module3

U proceduri "Sub ArhivirajPonudu()" pronađi ovu liniju koda
Citat:
txtIme = FPath & "\" & Format("Ponuda ") & Range("F12") & Range("G12") & "_" & Format(Now() + 1, "dd mmmm, yyyy hh-mm") & ".xlsx"
i zamjeni sa ovim kodom
Code:
txtIme = FPath & "\" & Format("Ponuda ") & Range("F12").Value - 1 & Range("G12") & "_" & Format(Now(), "dd mmmm, yyyy hh-mm") & ".xlsx"


U proceduri "Sub ArhivirajRacun()" pronađi ovu liniju koda
Citat:
txtIme = FPath & "\" & Format("Racun ") & Range("F12") & Range("G12") & "_" & Format(Now() + 1, "dd mmmm, yyyy hh-mm-ss") & ".xlsx"
i zamjeni sa ovim kodom
Code:
txtIme = FPath & "\" & Format("Racun ") & Range("F12").Value - 1 & Range("G12") & "_" & Format(Now(), "dd mmmm, yyyy hh-mm-ss") & ".xlsx"
Prikačeni fajlovi
taft-arhiviranje-ponude5.xlsm taft-arhiviranje-ponude5.xlsm - 114.45k
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć17.01.2022. u 09:56 - pre 27 meseci
Ivek

HVALA!! to radi sad ok.

Drugo pitanje radi se o polju E 38 kako da dobijem podatak traženi nakon save?
Vidim da prilikom save on obriše sve šifre-codove i onda dobijem #NAME?

Obzirom da ostale podatke prepiše ok i tu netreba ništa ispravljati ali ovo polje bi trebalo biti :)






[Ovu poruku je menjao Taft dana 17.01.2022. u 11:14 GMT+1]
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: VBA dopuna coda pomoć17.01.2022. u 20:43 - pre 27 meseci
Ne znam baš o čemu pričaš (bez tvog primjera)
Ako misliš na formulu =CONCATENATE("Slovima: ";ConvertCurrencyToEnglish(G37)) meni je sve OK nakon arhiviranja računa.
 
Odgovor na temu

Taft
nemam
nemam

Član broj: 325250
Poruke: 70



Profil

icon Re: VBA dopuna coda pomoć18.01.2022. u 09:26 - pre 27 meseci
evo primjer
Prikačeni fajlovi
Racun 2 -1-1_18 siječanj, 2022 10-25-05.xlsx Racun 2 -1-1_18 siječanj, 2022 10-25-05.xlsx - 22.38k
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Copy/Paste UDF formule18.01.2022. u 22:44 - pre 27 meseci
Iskreno, ne mogu ti puno pomoći jer nemam dovoljno znanja u VBA programiranju.
Ta greška "#NAME!" događa se jer prilikom kopiranja Excel ne kopira UDF funkciju u tu novu arhiviranu WBK i Excel ne može izračunati jer nije definiran naziv ili ime za pojedini podatak.

Ja sam krenuo obilaznim putem, ali nisam siguran koliko je to dobro i ispravno?
Moja ideja je da u 'Module3' na vrhu zamjeniš VBA procedure 'ponuda' i 'racun'

Ovo bi bio novi VBA kod
Code:

Sub Ponuda()
'unosi tekst u ćeliju B12
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "PONUDA BR:"
'postavlja formulu u ćeliju E38
        Range("E38:G38").Select
        ActiveCell.FormulaR1C1 = _
            "=CONCATENATE(""Slovima: "",ConvertCurrencyToEnglish(R[-1]C[2]))"
'copy/paste E38 ćelija kao vrijednost/tekst
    Range("E38").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        ActiveSheet.Paste
        Application.CutCopyMode = False
End Sub

Sub Racun()
'unosi tekst u ćeliju B12
        Range("B12").Select
        ActiveCell.FormulaR1C1 = "RAČUN BR:"
'postavlja formulu u ćeliju E38
        Range("E38:G38").Select
        ActiveCell.FormulaR1C1 = _
            "=CONCATENATE(""Slovima: "",ConvertCurrencyToEnglish(R[-1]C[2]))"
'copy/paste E38 ćelija kao vrijednost/tekst
    Range("E38").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        ActiveSheet.Paste
        Application.CutCopyMode = False
End Sub

Ove dvije procedure insertiraju formulu u 'E38' ćeliju a rezultat formule konvertiraju u običan tekst.
Tako da se prilikom arhiviranja kopira tekst umjesto UDF-formule.

Ovdje dolazi do jednog problema, kada radiš tj. unosiš podatke, rezultat u ćeliji 'E38' neće se promijeniti sve dok ne klikneš na button ARHIVIRAJ.

Možda neki VBA programer može više pomoći.
Prikačeni fajlovi
taft-arhiviranje-ponude6.xlsm taft-arhiviranje-ponude6.xlsm - 109.91k
 
Odgovor na temu

[es] :: Office :: Excel :: VBA dopuna coda pomoć

Strane: 1 2

[ Pregleda: 2486 | Odgovora: 20 ] > FB > Twit

Postavi temu Odgovori

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