Keresés: - Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

Új hozzászólás Aktív témák

EkSYS senior tag

#1949
#1947 sztanozs
2013-01-28 18:18:39

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1947 sztanozs

#1947 sztanozs
Szerintem ez alapján meg tudod csinálni: [link]

Köszi . Jónak tűnik !
EkSYS senior tag

#1948 2013-01-28 18:14:31

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Köszönöm . Vb.netben meg nem próbáltam.
EkSYS senior tag

#1945
#1944 sztanozs
2013-01-27 19:39:41

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1944 sztanozs

#1944 sztanozs
VB6 / VBA?

vb6
EkSYS senior tag

#1943 2013-01-27 18:29:09

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok!
Olyat hogy lehet csinálni hogy egy userformon lévő textboxon keresztül a user megad egy számot (1-től 10-ig) majd ennek megfelelően a program létrehozza a megadott számú textboxot ugyanezen a formon (vagy akár újon) és hogy lehet dolgozni /azonosítani ezeket a textboxot hogy ezeknek az értékeit tudjam használni?
köszi
b
EkSYS senior tag

#1789
#1786 sztanozs
2012-07-12 19:24:15

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1786 sztanozs

#1786 sztanozs
html-ben (mármint pure html-ben) szerintem nem lehet megoldani. JS vagy VBS már működhet, de ahhoz meg nem szükségszerűen kell html.
Bár jobban belegondolva elég jól kiegészíthető egy vbs-ből nyitott és generált html oldal a vbs kóddal. Nem egyszerű dolog, de megoldható.
Google: manipulate excel with vbsript
Google: vbscript html form
Mindkét keresésben az első oldal szinte összes találtata releváns.

köszi! Utána nézek!
EkSYS senior tag

#1784
#1783 martonx
2012-07-11 18:44:03

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1783 martonx

#1783 martonx
Persze, biztos vagyunk itt páran akik tudnánk.
A hálózati elérés nem jelenthet gondot, feltéve hogy a gépek rendben látják egymást.

Szia!
Nagyon köszönöm a válaszodat!!
EkSYS senior tag

#1782 2012-07-10 19:25:25

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok !
Tudna nekem valaki egy olyan html rövid kis kódsort írni ami egy adatok.xlsx -be bepakol pár adatot amit a html felületen lehet beadni?
Az számít ha az xlsx egy a hálózaton lévő másik gépen van?
köszi!
b
EkSYS senior tag

#1739
#1738 martonx
2012-04-23 23:26:29

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1738 martonx

#1738 martonx
hát, tipikusan erre való a debugolás. Üríted rendesen a combobox-ot pl?

Igen
EkSYS senior tag

#1737 2012-04-23 21:00:29

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok!
Érdekes problémával találkoztam, s nem tudom mi a megoldás:
Adott egy leltári kivét forma. Az első kombó ami be is van pipálva gyakorlatilag beadja az összes alkatrészgyártót. Majd a nagy kombó ami le is van gördítve meg kiadja minden olyan tétel típusát ami az első kombóban kiválasztott értéknek megfelel. Egyszerű. Ehhez az alábbi megoldásokat használtam:
1.kombó betöltése:
Do While Worksheets("alkresz").Range("A" & sor2).Value <> ""
sor2 = sor2 + 1
leltar1.ComboBox2.AddItem Worksheets("leltarpivo").Range("I" & sor2).Value
Loop
sor2 = sor2 - 1
Worksheets("alkresz").Activate
Majd betöltöm a nagy kombót:
Public Sub alkatcombo5toltes()
Dim sor As Integer
Dim xkeres(1 To 10) As String
xkeres1 = ""
xkeres2 = ""
sor = 2
If leltar1.CheckBox1.Value = True Then
xkeres1 = leltar1.ComboBox1.Value
Else
End If
If leltar1.CheckBox2.Value = True Then
xkeres2 = leltar1.ComboBox2.Value
Else
End If
leltar1.ComboBox5.Clear
Do While Worksheets("alkresz").Range("A" & sor).Value <> ""
'PME
If Worksheets("alkresz").Range("I" & sor).Value = xkeres1 Then
leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value
'Alk.gyártó
ElseIf Worksheets("alkresz").Range("H" & sor).Value = xkeres2 Then
leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value
End If
sor = sor + 1
Loop
A probléma az hogy a képen látható a nagy kombóban kiválasztott érték a helyes, csakis az a másik 3 nem. De az mindig benne marad. mindent szépen megtalál, csak ez a nyomorult 3 marad bent mindig.
Valakinek hasonló tapasztalata? Ötlete?
EkSYS senior tag

#1718
#1717 martonx
2012-03-27 21:39:11

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1717 martonx

#1717 martonx
Szia!
Az excel hibaüzenetei fájdalmasan semmitmondóak. Éppen ezért ebben segíteni sem tudunk neked. Esetleg annyit, hogy ilyen üzeneteknél a létező legtriviálisabb, legbagatellebb hibákra érdemes gondolni.

egyetértek, csak hátha mégis , valaki mond valami okosságot ami pont bejön.
EkSYS senior tag

#1716 2012-03-27 18:38:01

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok !
Találkozott már valaki a 2029-es hibával?
Nálam most jött elő először és nem tudom hogyan lehetne megoldani. Röviden.
Adott egy xls. amiben van több munkalap. az egyikben az egyik oszlop tartalmát szétszedem (9 oszlopra), majd kikopziok 7-et és átmásolom egy másik munkalapra ahol beszúrom A-tól. J-ig, és J től megint jönnek oszlopok, de az már máshonnan.
A feladat egyszerű összehasonlítgatós /keresős adott feltétel rendszer alapján.
A keresés A - F oszloptartományban zajlik. Ma kiderült a H I -ben is kell, átírtam a keresős algoritmust, és amikor ebbe a két új oszlopba kéne nyúlnia kiáll type mismatch-csal error 2029 (megnéztem a neten, de erre nem találtam megoldást)
valakinek ötlet?
EkSYS senior tag

#1713
#1712 martonx
2012-03-15 08:54:55

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1712 martonx

#1712 martonx
A lényeg, hogy megy
Sajnos az excel nagyon finnyás a területi beállításokra, excel verziókra, így sokszor nem könnyű általánosan jó megoldást adni.

dátumérték volt a megoldás...néha már csak azon lepődőm meg hogy erre miért nem gondolok
EkSYS senior tag

#1711
#1709 martonx
2012-03-14 13:52:14

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1709 martonx

#1709 martonx
Ez esetben erre van szükséged:
Dim lDate As Long Dim dDate As Date dDate = DateSerial(2011, 3, 12) lDate = dDate ActiveSheet.Range("$A$1:$A$4").AutoFilter Field:=1, Criteria1:= ">" & lDate
A dátumot átalakítjuk long-gá, és ezzel megbízhatóan működik mindenféle dátumszűrés.

Szia! Ezt a verziot probaltam, nem ment. Ellenben a datumertekkel megy jol :/.
EkSYS senior tag

#1707
#1706 martonx
2012-03-14 09:02:55

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1706 martonx

#1706 martonx
nálam simán működik visszajátszva.

Szia! De azt is meg tudod csinalni hogy mindent szurjon ami adott datumnal kesobbi?
EkSYS senior tag

#1705
#1704 martonx
2012-03-14 08:07:33

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

#1704 martonx

#1704 martonx
vedd fel makrórögzítéssel, hogy milyen formátumot szeret az exceled.
Nálam pl. ezt adja vissza:
ActiveSheet.Range("$A$2:$A$4").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(0, "10/30/2011")
A lényeget kivastagítottam.

Szia! Probaltam felvenni. Meg amit felvett a macro utana sajat maga nem futott le ugy hogy jol szurt volna. Neked mukodik?
EkSYS senior tag

#1703 2012-03-13 17:49:56

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok!
Van valakinek egy jól működő dátum szűrője (date filter)?
Jó pár verziót megpróbáltam de mindig ugyanaz lett a vége: nem szűrt
Dim MyDate
MyDate = Format(DateSerial(2012, 3, 13), "éééé.hh.nn")
ActiveSheet.AutoFilterMode = False
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=1, Criteria1:=MyDate
valakinek valami ötlet?
EkSYS senior tag

#1589 2012-01-19 19:37:19

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

sziasztok!
Ha valaki esetleg tud segíteni abban hogy miként lehet egy makró futása közben egy user inputtal várakoztatni a továbbfutást (mondjuk egy formon van több text és combo, és amikor ezek tartalmát ellenőríztetem egy makróval akkor ha üres textb.-t talál akkor klikkeljen bele a text.-be és egy msgbox vagy ok után menne tovább) , érdekelne
b
EkSYS senior tag

#1572 2011-12-30 21:49:10

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

EkSYS

senior tag

Sziasztok!
Abban tudna valaki segiteni hogy hogyan lehet egy combobox tartalmát betölteni egy adott tartományból? (esetleg egy egyszerü példa is hasznos lenne )
köszi!
Szerk: rá is jöttem:
Me.ComboBox1.List = Worksheets("Sheet1").Range("B12376").Value