< 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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

Kumulace listů do jednoho listu

Lugr • 28.9. 11:24

Kumulace listů do jednoho listu

veny • 27.9. 11:23

skenovani a vyhledavani a oznaceni v tabulce

elninoslov • 24.9. 23:11

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25