• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Tak nakoniec pomohlo vymenit
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
za
Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP")

Zdravim
Riesim autoupdate excel suboru.

VBA scriptom v exceli stahujem z webu dalsi xslm subor
Vsetko ide ok, vsade je vsetko
ale v novom subore my chyba script ktory je ulozeny v Microsoft excel objects > This Workbook

niekto nejaky napad, kde mam chybu.
vdaka
Rasto

na stahovanie pouzivam toto:

Private Sub DownloadUpdate()
Dim myURL As Variant
myURL = "http://xxxxx.sk/Obj_1.02.xlsm"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile ThisWorkbook.path & "\" & "Obj_1.02.xlsm", 2 ' 1 = no overwrite, 2 = overVerwrite
oStream.Close
MsgBox ("Download úspešný")
End If
End Sub

nakoniec my funguje toto

https://www.extendoffice.com/documents/excel/2445-excel-drop-down-list-ignore-blank.html#a1

Snazim sa vytvorit "dynamicky" dropdown list

Na zakkalde podmienky "když" bud zobrazi alebo nezobrazi v stlpci "F" hodnotu zo stlpca "B"

Problem je ze ked teraz z toho vytvorim seznam tak tam mam kopec prazdnych riadkov, ktore by som potreboval odstranit ale potrebujem zachovat postupnost.

vdaka

ide o to ze je to subor pre basic users, (stary pani), a kadza varovna hlaska ohladne makier vyvolava stres :))

vytvorim dalsi stlpec kde im bude pisat chybu v riadku

Zdravim, ak by my niekto vedel poradit.

mam excel list (v prilohe) kde nemozem pouzit VBA

C2 - vyberam profil
G - moznost vyberu vytriny
H - ak je vybrana vytrina musi byt vybrane prevedenie
(stlpec H je prepojeny cez neprimy odkaz)
............

potreboval by som ale ak je vybrana vytrina aj prevedenie
a vytrinu zrusim/zmenim za inu (profili zacinajuce na R) tak prevedenie sa zmaze a je nutne ho definvoat znova

vdaka
rasto

Vdaka, funguje tak ako ma, zbytok si uz doladim aj sam..

Zdravim,
potrebujem v xls overit podla profilu,vysky a sirky ci je dany rozmar typizovany alebo nie.

vedel by som to vsetko naprasit do jedneho stlpca a cez concactenate, to vyhladavat ci sa to tam nachadza, ale chcel by som nejake elegantnejsie riesenie tak ze si aj uzivatel dobuduna bude vediet zadat alebo vymazat dalsie rozmery.

Ak niekho napada nieco rozumne.
vdaka

vdaka

If tb.leght < 199 Then Goto POKRACUJ


pomohlo

Zdravim potreboval by som poradit ako prerusit tento cyklus pokial
tb.leght < 199

tak ze nevlozi hodnoty do buniek, ale uz len vymaze hodnoty z textboxov

vdaka

......................................

Range("A9").Select
i = 1 'set as the first ID

Do Until ActiveCell.Value = Empty
ActiveCell.Offset(1, 0).Select 'move down 1 row
i = i + 1

Loop

ActiveCell.Value = i 'Next ID number
ActiveCell.Offset(0, 1).Value = tbLenght - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 3).Value = tbWidth - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 5).Value = tbQty.Text
ActiveCell.Offset(0, 7).Value = tbNote.Text & "-Kazeta (" & tbLenght.Text & "-" & tbWidth.Text & ")"




tbLenght.Text = Empty
tbWidth.Text = Empty
tbQty.Text = Empty
tbNote.Value = Empty

tbLenght.SetFocus 'positions the cursor for next record entry
End Sub

Nazdar, presne toto som uz skusal, ale problem je v tom ze my zmaze vzorec...

Jedine co ma momentalne napadlo je pridat novy stlpec "F" "Sklo zmena", tym padom by som stlpec Sklo (E) zamkol proti prepisaniu.

a pouzit vzorec (robim v riadku 5)

=KDYŽ(F5="";C1;F5))

Mam objednavkovy formular

V hlavicke objednavky si vyberiem druh skla "C1" (ziadne, cire, zkadlo...) cez dropdown list

Nizsie do tabulky zadavam vysku B5, sirku C5, kusy D5, a druh skla E5 - sa automaticky prepisuje z hlavicky (napr. E5= C1).

Lenze moze sa stat ze pri urcitom rozmere nechcem pouzit preddefinovane sklo (C1) ale chce vybrat zo zoznamu.

Viem urobit nieco take, ze by bol v E5 dropdown list s roznymi sklami, ktory automaticky preberie hodnotu C1 ako prednastavenu)

vdaka

Vdaka....

ide o to ze na prvom liste my fakturant nachadzuje vysku - sirku - kusy dvierok...

lenze dvierka sa skladaju z 4dielov a tym padom mam tam vzorec ktoreho vysledkom su dva riadky (vyska,sirka, kusy priecnych a vyska,sirka,kusy pozdlznych kusov) v jednej bunke...

a toto potrebujem dostat do jednotlivych riadkov aby som s datami mohol dalej pracovat (export to optimalizacneho programu, generovanie stitkov...)

a toto bolo najjednoduchsie riesenie k tomu mojmu existujucemu :)

Zdravim,

vysledkom vzorca dostanem vo viacerych bunkach viacriadkovy text.

Nasledne by som potreboval najlepsie za pomoci vba prekopirovat to do noveho listu kde kazdy riadok = jedna bunka

ak yb my s tym vedel niekto poradit

vdaka

Rasto

Velka vdaka doupravil som pre svoje potreby funguje na prvy krat...

.................................
Ja som to riesil takto ale davalo my prazdne riadky vsade tam kde nevyhovovala podmienak kdyz a nebolo to ono..

Sub Export()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
Dim fName As String

'References
Set wbSource = ActiveWorkbook
Set wsSource = ThisWorkbook.Sheets("export")
Set wbDest = Workbooks.Add

'Copy range on original sheet
'Using usedrange can be risky and may return the wrong result.
wsSource.UsedRange.Copy

'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse