Příspěvky uživatele
< návrat zpět
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
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články