Příspěvky uživatele

Díky za vaše reakce zatím se s tím nějak peru tak uvidím kam to dotáhnu případně vytvořím přílohu. ještě jednou díky.

Díky za reakci ale moc to nechápu

.

potřebuji aby se v cyklu kód pozastavil já buď provedu nebo neprovedu změny v buňkách a pokračování spustil stejným tlačítkem jako poprvé. Potom by se zase v dalším cyklu pozastavil já zkontroloval jestli je co měnit a zase vyvolal pokračování kliknutím na pořád stejné tlačítko.

Zdravím,

Mám dotaz jde nějak pozastavit kód, který by pokračoval po kliknutí na tlačítko kterým byl před tím spuštěn?

díky.

tak sem to vyřešil tak jak mi mé znalosti dovolily:
Sheets("List3").OLEObjects(nazev).Object.BorderColor = &H0&
i tak díky !!!

to bude nejspíše ono

tzn: že ten problém je opravdu mezi mou klávesnicí a židlí

dejme tomu ze v bunce A1 je text abcd
nazev = Sheets("List1").Cells(1, 1).Value
tzn:
nazev = "abcd"

no a já pak potřebuji:
nazev.Object.BorderColor = &H0&

jenže objekt "abcd" neexistuje existuje jen objekt abcd
po:
ASC(Left(nazev, 1)) se nazev = 111

Narazil sem na další problém se kterým si nevím rady jedná se o odstranění uvozovek.
mám proměnou nazev, která bere hodnotu z buňky:
nazev = Sheets("List1").Cells(i, 28).Value
jenže:
nazev = "textZbunky"
potřeboval bych:
nazev = textZbunky
dá se nějak pomocí replace ty uvozovky odstranit? našel jsem něco ve stylu:
nazev = Replace(nazev, chr(34), "_")
jenže tohle mi právě nefunguje.
někdo kdo už uvozovky odstraňoval nebo ví jak na to a poradí? díky!!!

hromadně to právě kopírovat nemůžu, ale předchozí kód mi dostatečně vyhovuje! ještě jednou velké díky jste fakt borec.

jinak princip kódu je, že vložím 1. obrázek ze skrytého listu pak kliknu na ten první obrázek a vyberu jestli přidat obrázek před, za, pod a nebo nad. principem už to funguje jak má. Samozřejmě čas k dobru by se taky hodil ale velké díky!!!

v každém kole cyklu to zkopíruje jen jeden objekt, který to dle dat z tabulky přejmenuje a napozicuje. teď už to funguje přesě tak jak potřebuji DÍKY!!!!!

tak tenhle kod je super!!! velké diky za něj :-), ale ještě tam mám problém stím, že někdy se kopírovaný objekt jmenuje image2 a pak se vlastně nepřejmenuje ani nenapozicuje.

Boze ja sem blbec dekuji

omlouvám se, že sem nereagoval na vaše odpovědi v přechozím tématu ale sem začátečník a moc jsem vaším kodům nerozuměl a co jsem vyzkoušel mi nešlo a psát Vám že mi to nejde když vám to jde bylo zbytečný.

k tomuhle tématu:
nejde mi do hlavy proč tenhle kod, který pracuje z tabulkou a ta je správně někdy chybu nehodí a někdy jo jsem z toho blázen a ještě jednou se omlouvám za nereakce na předchozím tématu.

díky.

zdravím,
program mi háže chybu: Nelze získat vlastnost OLEObject třídy worksheets a nevím co stím:

kod kopíruje obrázky z tabulky, přejmenovává je a určuje jim pozici:
For i = 4 To 44
If Sheets("Sekce").Cells(i, 24).Value <> "" Then
nazevImg = Sheets("sekce").Cells(i, 25).Value
Sheets("Sekce").OLEObjects(nazevImg).Copy
Sheets("Skladba jednotky").Paste
Sheets("Skladba jednotky").OLEObjects("image1").Name = Sheets("Sekce").Cells(i, 28).Value
nazevObr = Sheets("Sekce").Cells(i, 28).Value
Sheets("Skladba jednotky").OLEObjects(nazevObr).Top = Sheets("sekce").Cells(i, 26).Value
Sheets("Skladba jednotky").OLEObjects(nazevObr).Left = Sheets("sekce").Cells(i, 27).Value
End If
Next i

v tabulce chyba není.
poradí mi někdo co stím?
Díky.

zdravím
mám kod

Set TextBox1 = list.OLEObjects.Add(ClassType:="Forms.TextBox.1")
With TextBox1
.Name = "box1"
.Left = list.Cells(23, 5).Left
.Top = list.Cells(23, 5).Top
.Width = list.Range("E23:F23").Width
.Height = list.Cells(23, 5).Height
.Object.BackColor = RGB(255, 255, 255)
.Object.ForeColor = RGB(0, 0, 0)
.Object.Text = ""
.Object.FontSize = 11
End With

může mi někdo prosím poradit jak nadefinovat number format pro tenhle textbox tak aby byl
NumberFormat = "#,##0"

díky :-)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje