Třeba
Příloha: 
50290_test.zip (15kB, staženo 16x)
citovat50290_test.zip (15kB, staženo 16x)
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
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
Čas od do
jarek1111 • 18.4. 8:31
Makro smyčka
MilanKop • 18.4. 7:18
Makro smyčka
elninoslov • 18.4. 0:18
Makro smyčka
MilanKop • 17.4. 21:33
RSS nejnovější články