Tfu blin geras... O jug pasirodo, kad veikia ctrl + ; ...
Gal Office 2000 to pasigedau, kad 2003 nebandziau :)

Kaip jumi mem nizinau, gal ir bus, bet man tai negresia rytoj, max Nauja pjanke, bet nuo kavos pahmelo man nebuna :)

Akys raibsta na o jei laukti visus 20000 kartu tai ir klaviatura spalvom pasidengtu :)
Wertis Office 97 buvo gana patogus toks dalykas kaip datos ivedimas i bet kuria lastele su dviem klavisais ctrl + ; (lygtai taip buvo nebepamenu), gal sakau yra ir 2003 kazkokia klavisu kombinacija? Siaip gana patogus dalykas.

Hmmm....Hmmmm.. Ryt gi pirmadienis ! Gerai, kad pahmelo nebus :)

:)) jei netavo pavyzdys buciau bandes komadine eilute tokia rasyti ThisWorkbook.show :)) Nu nieko nepatriubisi stalius gi
Dekui!

Wertis tu šaunolis! Tikrai labai daug padėjai iš tikrūju labai dėkingas. Tik va klausimas iškila toks ar neigrysiu aš tau :) . Šiaip tai kai pradėjau su tais msbox-ais ir formomis žaisti(su tavo pagalba aiškus), tai pasikeitė net poreikis to ka buvau pradžioje sumastes su formu pagalba išsipredžia viskas kur kas paprasčiau net naudojimasis bus lengvesnis. Bet čia dabar atsirado dar papildomu poreikiu tai duomenu bazes kurimas, naudojimasis bei peržiūra tam tikrų duomenų formoje, aiškus tema labai plati, bet kiek vėlėliau turėsiu tiesioginių klausimu jei bus galima aiškus.
Na šiam kartui norėčiau užklausti ar eina padaryti taip, kad atidarius excelio faila atsidarytu ir forma

Aciu tau Wertis sakyk kada galeciau alaus tau pastatyti kokiam alubaryje? Pasiulymas rimtas.
Na ir tuo paciu dar klausimuks? Kaip ir ka reik cia pataisyti, kad vietoje "Taip" sudirbtu ne macro"Taip" o sukurta UserForm1

Na macrosai yra su pavadinimais Taip ir Ne, darasiau dar viena end if, bet neivelnio niveikia. Gal galetum padaryti veikianti pavyzdi pls. kad ta msgbox ismestu kai A1 yra daugiau uz 20.

Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$B$8" Then
Select Case target
Case Is > 350: Macro1
End Select
End If
If target.Address = "$B$9" Then
Select Case target
Case Is > 0, 5: Formule_durims
End Select
End If
If target.Address = "$D$20" Then
If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If
End Sub

Nu ir nevykelis gi as neivelnio man nieks nisekasi su tuom dajungimu erorose raso kad proceduros vardas netinka tipo sub, Function arba Property, gal cia visai ta msg atskirai reikia rasyti niekur nedajungineti. Tos dvi pirmosios funkcijos veikia kol nedajungiu tos su msg.

If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If

pranešk kaip pavyko

[/quote]

Wertis kiek supratau pradedi kankinima biški :) tai turbut hrenovas mokinys aš ir tikrai šiu teiginių dajungti niekur negaliu nors bandžiau daug ką darašyti ar pakeisti nieks iškyrus klaidų nesigavo:( kiek iš tavo kom. eilutės supratau tai, kad čia trūksta to msg pasileidimo adreso tipo: If target.Address = "$D$20" Then. ar kaip kitaip.

Na kagi vel blin pribrendo reikalas prasyti pagalbos :(
Vel gi reikia kad nuo irasyto tam tikro teksto islystu tipo mesage box su tam tikru irasu ir su dviem atsakymu variantais "Taip" ir "Ne", atsakymu variantai turetu paleisti tam tikras macro komandas. Manau, kad tai imanoma, bet tai tikrai ne mano nosei.

Jooo... Toli pazengem nuo 97 metu, tada kai labai reikejo isigyjau V.Šakys Excel 97 knyga, ja ir siai dienai laikau gera knyga, tik gaila tai kad paseno daug kas nuo Office97. o nuo 98 nebereikejo excelio, tai ir makauleje daug kas pamirsto jau. Šis formas tikrai jėga.

Wertis aciu dar syki. Sakyk zmogau gal kokios geros literaturos galetum pasiulyti apie exceli.

Hmmm...nejaugi negalima kelias funkcijas padaryti 2 ar net 5 pvz i A1 reguoja 3 if reiksmes po to reik kad B2 irgi butu paklusni Worksheet_Change ir taip t.t.
Cia vis apie ta macru pasileidima nuo ivestu duomenu i tam tikra cele

Sveiki! Gal galetumet dar viena paslapti atskleisti :)
kai i worksheeta irasomas vienas kodas Private Sub Worksheet_Change(ByVal target As Range) irasius antra private sub... jie kaip ir pjautis tarpusavyje pradeda, gal juos reik kazkaip uzvadinti kazkaip tipo Private sub1 Private sub2 ?
Dekui

Nu vsio jau musiek reik jungti lauk ta kompa, arba reik "Švyturio" atsidaryti.
Taip sutinku neaiskiai issireiskiau, Sorry. Cia kiek supratau turetu ismesti pranesima (o gal klystu):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Text <> "" Then
MsgBox "Làstelë " & Target.Address & " ne tuðèia"
Else
MsgBox "Làstelë " & Target.Address & "tuðèia"
End If
End If
End Sub
Todel kazkaip atsiminiau apie ismetamus prnesimus Validation...
O sis mano teiginys tai skirtas prie preitos savaites temos:
Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?
Nes ta problema kuria tu isprendei i formuliu atsakyma jos nereguoja, kas butu kai kur tikrai neprosal.
Wertis Nepyk jei as cia gryba pjaunu.

Raso teip: Compile error: Ambiguous neme detected: Worksheet_Change

O pranesimus eina gauti su Data/Validation...

Nu man uzkart erora meta ir perkelia mane i VBE pazymedama sia eilute:
Private Sub Worksheet_Change(ByVal Target As Range)

=if(isblank(A1);"Blogai;"Gerai")
arba
=if(A1<>"";"Gerai";"Blogai")
[/quote]

Wertis Dekui

Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?

kalba apie tai i B2 reik tokios formules =IF(A1= jei yra yrasyta kas nors;"Gerai";"Blogai")

Wetis> Klaipedos sostine "Švyturys"

ir vel reik helpo Kazkada lyg ir bandziau, bet nebepamenu ar yra formule kuri pazintu cele kaip su irasu ar be. Celeje gali buti ir skaicius ir tekstas arba nieko. Jei kas zinot padekit pls.

Na gal dar biskuti klausimuks, gal kazka pakeitus eina kopinti ir ne tik i kitus sheetus nesokinejant i juos, nesinori to mirksejimo matyti

Range("A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("B12").Select
End Sub

dekoju

Wertis tu genijus! aciu tau didziausias, lieku alaus skolingas, gal koki syki tikrai iseis atsidekoti kaip ne kaip Klaipedski gi. Na o del sheet kazkaip uzsiciklinau ir vis man vaidenosi kad niekur kitur o tik Modulius reik rasyti :)
Dekui dar syki, ledai tuoj pajudes.

pas manes 2003 Office, tai ten biski daugiau tu security, bet ir ankstesniose irgi yra tik kiek biski kitaip

Tools/Options/Security/Macro security ir parenki Low ligi. Lygtai sitaip.

Turbut visai nupliksiu kol man pavyks, jau turbut visos kepures mazos nuo galvos istinimo :) bandau prisegti savo juodrasti

Stebuklas hmmm... nejoks cia ne stebuklas. Paprasciausiai yra toks niuansas kaip baldu gaminio detalizacija kuria reikia numatyti ir neapsirikti(kas labai daznai ivyksta, ne man o projektuotojams, bet renku as ir paskui knisuosi) stalciu detales, stumdomu duru prasikeitimai ir max stalciaus plotis, duru auksciai kintami nuo ivairiausiu navorotu(kanizai halogenines lentos, paciu duru mechanizmai ir t.t. ir kaip tycia jie is savo profesanalumo ivelia klaidu. Atsiusti ta faila... nebent kai ji sutvarkysiu, nes jame dabar toks bardakas kuriame as pats vos gaudausi, o ji susitvarkyti greitai galeciau butent su tuom stebuklingu makroso pasileidimu kuris keistu formules bei uzpildymo blanko laukus priklausomai nuo gaminio pavadinimo.

Nu vsio amba man visiskai kiek visko isbandziau ir nieko nepesiau, kurioje gi vietoje ta auksine vieta kur duomenu reiksmes IF tame VBA reik ivesti nes A1 ka berasyciau nieko nevyksta

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: MacroA
Case 2: MacroB
Case 3: MacroC
End Select
End If
End Sub
Jei gali paaiskin kaip zaliam, as gi stalius, o ne programeris, bet man excelis padaro tai ko nepadaro nei viena baldu projektavimo programa.