< návrat zpět
MS Excel
Téma: Problém 
Zaslal/a marficek119 20.1.2011 2:12
V níže uvedeném kódu je někde chyba. Toto makro zapisuje data od 25 řádku do 59 řádku. Problém je v tom, že se vypíše 59 řádek a pokud omylem kliknu znovu na tlačítko vložit položku, Tak se mě přepíše 25 řádek. Což je špatně. Nevíte jak zastavit makro na tom 59 řádku, aby už dál po náhodném stisku nepřepisovalo 26 řádek? Nebo nevíte kde je chyba?
Díky M.
Private Sub VlozitDoNabidky_Click()
Dim i As Long
Dim start As Long
Dim polozka As String
If PolozkyNabidka.Value = "" Then
MsgBox "Vyberte položku a akci opakujte.", vbInformation
Exit Sub
Else
End If
start = 25
polozka = Application.WorksheetFunction.Match(PolozkyNabidka.Value, Sheets("Položky").Range("B:B"), 0)
For i = 24 To Sheets("Instalace vody").Cells(59, 5).End(xlUp).Row
If Sheets("Instalace vody").Cells(start, 5) <> "" Or Sheets("Instalace vody").Cells(start, 2) <> "" Then
start = start + 1
Else
GoTo 1
End If
Next i
1:
Sheets("Instalace vody").Cells(start, 5) = Sheets("Položky").Cells(polozka, 2)
Sheets("Instalace vody").Cells(start, 11) = Sheets("Položky").Cells(polozka, 6)
Sheets("Instalace vody").Cells(start, 12) = Sheets("Položky").Cells(polozka, 3)
Sheets("Instalace vody").Cells(start, 10) = TextBox1
End Sub
Poki(20.1.2011 9:45)#003842
Abych rekl pravdu, tak v tom kodu par veci nechapu, napr. proc pouzivate cyklus For Next s promennou i, kdyz i nikde nevyuzivate??? Navic, pokud budete mit zaplneny radek 59, tak cells(59,5).end(xlup).row vas vrati na prvni vyplneny radek v oblasti (asi 25)
Dost tezko se takhle kod hodnoti, kdyz nevidim, s cim se vlastne pracuje...
Kdyz prilozite soubor, podivam se na to
citovat
Odeslal jsem ti e-mail s ukázkou toho problému.
Díky M
citovat Poki(21.1.2011 9:47)#003847
RSS nejnovější články