Třeba
Příloha: 
50290_test.zip (15kB, staženo 17x)
citovat50290_test.zip (15kB, staženo 17x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Excel funkce makra
MS Excel
Téma: Excel funkce makra 
Zaslal/a Mati 31.3.2021 15:29
Dobrý den, níže je uvedené makro, který přidá o číslo víc do dokladu jen to musejí byt čísla potřeboval bych aby to fungovalo např.: HP20210012
JmenoS = Sheets("Pokladní doklad").Range("Z3").Value + 1 'Názve souboru
Range("Z3") = JmenoS
Moc děkuji
Bez prebliknutia, a je jedno čo je pred číslom.
Sub test2()
Dim Hodnota As String
Dim Bunka As Range
Set Bunka = Worksheets("Pokladní doklad").Range("B2")
Hodnota = Bunka
Bunka = Left$(Hodnota, Len(Hodnota) - 8) & Right$(Hodnota, 8) + 1
End Subcitovat
Sub test2()
Dim Hodnota As String
Dim Bunka As Range
Set Bunka = Worksheets("Pokladní doklad").Range("B2")
Hodnota = Bunka
Bunka = Left$(Hodnota, Len(Hodnota) - 8) & Right$(Hodnota, 8) + 1
End Subcitovat
Potřebuji to, aby to bylo tak to.
Sub Mazání()
e = MsgBox("Chceš údaje z Dokladu " & Range("Y3") & " smazat ?", vbYesNo)
Select Case e
Case vbNo
Case vbYes
Range("BN2").Select
ActiveCell.FormulaR1C1 = "" ' přenastaví hodnotu na nula aby se udaje smazali "1"
Range("BN3").Select
JmenoS = Sheets("Doklad").Range("Y3").Value + 1 'Názve souboru
Range("Y3") = JmenoS ' změní čílo o 1 vetší
End Select
End Sub
Jen aby to šlo i HP20210012 .. OMLOUVÁM SE
Pokud v tom číslu to HP není tak to funguje pokud to však přidám tak to nejde.
JE K TOMU JEŠTĚ K DALŠÍ FUNKCI, KTERÁ PO STISKNUTÍ TLAČÍTKA
ULOŽÍ DOKLAD DO PDF A VYMAŽE FORMULÁŘ.
A MĚLO BY TO ZVÍŠIT ČÍSLO O 1citovat
Sub Mazání()
e = MsgBox("Chceš údaje z Dokladu " & Range("Y3") & " smazat ?", vbYesNo)
Select Case e
Case vbNo
Case vbYes
Range("BN2").Select
ActiveCell.FormulaR1C1 = "" ' přenastaví hodnotu na nula aby se udaje smazali "1"
Range("BN3").Select
JmenoS = Sheets("Doklad").Range("Y3").Value + 1 'Názve souboru
Range("Y3") = JmenoS ' změní čílo o 1 vetší
End Select
End Sub
Jen aby to šlo i HP20210012 .. OMLOUVÁM SE
Pokud v tom číslu to HP není tak to funguje pokud to však přidám tak to nejde.
JE K TOMU JEŠTĚ K DALŠÍ FUNKCI, KTERÁ PO STISKNUTÍ TLAČÍTKA
ULOŽÍ DOKLAD DO PDF A VYMAŽE FORMULÁŘ.
A MĚLO BY TO ZVÍŠIT ČÍSLO O 1citovat
A na čí príspevok reagujete? Ktorá verzia Vám nejde? Mne idú obidve. A "nejde" znamená čo? Vypíše nejakú chybu? Nepripočíta? Pripočíta zle? ...
Najskôr je to "HP20210012" potom "HP202100120". Logicky sa to má meniť predsa na "HP20210013", nie? Čo tá pridaná "0" na konci? Koľko tam má byť teda tých čísel okrem roku 2021?
Sub Mazání()
Dim JmenoS As String
With Sheets("Doklad")
JmenoS = .Range("Y3")
If MsgBox("Chceš údaje z Dokladu " & JmenoS & " smazat ?", vbYesNo) = vbYes Then
.Range("BN2").ClearContents
.Range("Y3") = Left$(JmenoS, Len(JmenoS) - 8) & Right$(JmenoS, 8) + 1
End If
End With
End Subcitovat
Najskôr je to "HP20210012" potom "HP202100120". Logicky sa to má meniť predsa na "HP20210013", nie? Čo tá pridaná "0" na konci? Koľko tam má byť teda tých čísel okrem roku 2021?
Sub Mazání()
Dim JmenoS As String
With Sheets("Doklad")
JmenoS = .Range("Y3")
If MsgBox("Chceš údaje z Dokladu " & JmenoS & " smazat ?", vbYesNo) = vbYes Then
.Range("BN2").ClearContents
.Range("Y3") = Left$(JmenoS, Len(JmenoS) - 8) & Right$(JmenoS, 8) + 1
End If
End With
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články