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

broj računa sa brojevima i slovima

[es] :: Office :: Excel :: broj računa sa brojevima i slovima

[ Pregleda: 1520 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

koreja2001

Član broj: 278867
Poruke: 20
*.dsl.iskon.hr.



Profil

icon broj računa sa brojevima i slovima06.05.2019. u 22:37 - pre 59 meseci
Kako napraviti formulu da se automatski broj računa povećava za 1 ako broj računa sadrži i slova. Na primjer broj računa je 103/L1/1P i slijedeći broj bi trebao biti 104/L1/1P pa 105/L1/1P itd.

Hvala
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: broj računa sa brojevima i slovima06.05.2019. u 23:30 - pre 59 meseci
Moze na vise nacina to da se uradi;

Evo deo od jednog nacina kako je to moguce resiti:

- U VBA napraviti f-ju koja generise broj racuna u skladu sa potrebama i koja vraca generisani broj racuna kao povratnu vrednost tipa string;

- Pozvati tu VBA f-ju kada god je potrebno generisati novi broj;

Primer VBA f-je koja koristi Registry za cuvanje poslednjeg generisanog broja preko f-je gde preko ulaznog parametra kontrolise da li se poslednji generisani broj azurira ili ne u registry-ju i deo koda koji sluzi za povezivanje makro-a sa drugim elementima u okviru Excel-a isto kroz VBA i makro;

Code:


Public Function GenerateInoviceNum(Optional ByVal SaveLastNumber As Boolean = True) As String

    Dim r As String
    
    r = Val("" & GetSetting("myinvoiceapp", "invoice", "invoicenum", "0")) + 1
    
    If SaveLastNumber = True Then
    
        SaveSetting "myinvoiceapp", "invoice", "invoicenum", r
    
    End If
    
    r = Format(r, "000")
    
    r = r & "/L1/1P"
      
    GenerateInoviceNum = r

End Function

Public Sub DoGenerateInvoiceNum()

    ActiveCell = GenerateInoviceNum(True)

End Sub


Prikačeni fajlovi
 
Odgovor na temu

pera68
Bačka Palanka

Član broj: 98559
Poruke: 121
*.cws.sco.cisco.com.



+9 Profil

icon Re: broj računa sa brojevima i slovima07.05.2019. u 12:47 - pre 59 meseci
Formula u prilogu, verovatno može i jednostavnije ali radi i ovo.

Code:
 =IF(ISNUMBER(LEFT(A2;FIND("/";A2)-1)*1);LEFT(A2;FIND("/";A2)-1)+1;"")&MID(A2;FIND("/";A2)+1;LEN(A2)-FIND("/";A2)) 


Formula radi na taj način što pronalazi prvi karakter "/" i proverava da li je to što se nalazi levo od tog karaktera broj a ako jeste uvećava ga za 1 inače za te karaktere ostavlja blanko.
Za ovu formulu nije bitno da li je u nastavku identičan broj karaktera (ne mora uvek biti /L1/1P).
Prikačeni fajlovi
 
Odgovor na temu

koreja2001

Član broj: 278867
Poruke: 20
*.dsl.iskon.hr.



Profil

icon Re: broj računa sa brojevima i slovima07.05.2019. u 17:20 - pre 59 meseci
Hvala na ponuđenim rješenjima, puno ste mi pomogli
 
Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 224
109.175.99.*



+4 Profil

icon Re: broj računa sa brojevima i slovima07.05.2019. u 18:05 - pre 59 meseci
pozdrav
moze i ovaj nacin,

Sheets("sheets1").Range("A5").Value = _
Sheets("sheets1").Range("A5").Value + 1

L1 i P1 ne mjenjaju vrijednost stoga moze i ovaj nacin,razdvojis na 3 celije i povecavas samo onaj s brojem,
svaki put kad pokrenes macro povecava se za 1 vise

lp
Jasmin
 
Odgovor na temu

[es] :: Office :: Excel :: broj računa sa brojevima i slovima

[ Pregleda: 1520 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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