< návrat zpět

MS Excel


Téma: editácia tabulky cez userform rss

Zaslal/a 17.6.2021 22:07

Zdravím,

špekulujem ako na jednu záludnú vec
mám ID od 1-50 ak zadám 51 tak mi ostanú načítané údaje z ID 5 ako by som mohol ošetriť problém ak zadám ID vacsie ako je v tabulke aby mi obsah vymazalo ?

Ďakujem

Sub PridajUprav()
Dim id As Integer, i As Integer, j As Integer,
Dim PoslednyRiadok As Long

If UserForm1.TextBox1.Value <> "" Then

id = UserForm1.TextBox1.Value
PoslednyRiadok = WorksheetFunction.CountA(Range("A:A"))
i = 0


For i = 1 To emptyRow

If Cells(i + 1, 1).Value = id Then
For j = 2 To 6
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j


End If

Next i




For j = 1 To 6
Cells(PoslednyRiadok + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j


End If

End If

End Sub

Zaslat odpověď >

#050883
avatar
Vytvořit proceduru:
Private Sub TextBox1_Change()
V proceduře pak:
1. zjistím si nejvyšší ID (ve vašem případě 50)
2. pokud je UserForm1.TextBox1.Value větší než nejvyšší ID tak UserForm1.TextBox1.Value = ""

Jinak v tom přiloženém makru máte zřejmě chybu. Nejdřív naplníte proměnnou PoslednyRadek a následně použijete v cyklu proměnnou emptyRow For i = 1 To emptyRow Myslím, že ten cyklus vůbec neproběhne, protože emptyRow je nula (pokud se tedy nejedná o globální proměnnou)citovat
#050884
avatar
už to behá Ďakujem

Jiří497 napsal/a:

Vytvořit proceduru:
Private Sub TextBox1_Change()
V proceduře pak:
1. zjistím si nejvyšší ID (ve vašem případě 50)
2. pokud je UserForm1.TextBox1.Value větší než nejvyšší ID tak UserForm1.TextBox1.Value = ""

Jinak v tom přiloženém makru máte zřejmě chybu. Nejdřív naplníte proměnnou PoslednyRadek a následně použijete v cyklu proměnnou emptyRow For i = 1 To emptyRow Myslím, že ten cyklus vůbec neproběhne, protože emptyRow je nula (pokud se tedy nejedná o globální proměnnou)
citovat
#050885
avatar
Rádo se stalo.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

Makra v Excel pre Mac

elninoslov • 30.7. 17:47

Makra v Excel pre Mac

radino • 30.7. 12:24

Vypsání hodnot u stejných buněk do jednoho řádku

lubo • 29.7. 18:36

Sečíst sloupec od 4 řádku

Pavlus • 29.7. 14:52

Sečíst sloupec od 4 řádku

Anonym • 29.7. 14:25

Sečíst sloupec od 4 řádku

Janinka88 • 29.7. 14:13

Sečíst sloupec od 4 řádku

marjankaj • 29.7. 13:26