Instrukcja If Wiem że to jest proste ale nie kumam tegoNie wiem jak dopisać drugą częśc tej instrukcjiPierwsza część:If .Range("AL7" = "" ThenMsgBox " Pozycja 1 przekroczone godziny"Tłumaczę to tak:Jeżeli komorka AL7 jest pusta to pojawi się MsgBox " Pozycja 1 przekroczone godziny" druga część: ale jak komorka ta jest pusta i wartość w komórce AK7 jest taka sama wartość jak w komórce AR3 to ma się pojawić MsgBox " Pozycje w normie"No nie wiem jak to połączyć
04-05-2005 17:21
losmac "profesorek"
Typ: neutral Postów: 758 Zarejestrowany: May 2003
if Range(A7)="" and Range(AK7)<>Range(AR3) then Msgbox "Przekroczenie"else Msgbox "w normie"end if _____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
04-05-2005 21:19
toja
Typ: neutral Postów: 31 Zarejestrowany: Apr 2005
Czy jest może lepszy sposób niż to co ja wymyśliłem. Jest to napisane dla dwóch komórek A1 i A3, a gdyby trzeba było napisać np dla 200, bylo by to trochę mozolne. Czy można zastosować jakąś pętlę, ktora by sprawdzała te instrukcje co drugi wiersz ThisWorkbook.Worksheets("Arkusz1".ActivateWith ThisWorkbook.Worksheets("Arkusz1"If .Range("A1" > "0" ThenMsgBox "przekroczenie".Range("A1".ActivateElseIf .Range("A3" > "0" ThenMsgBox "przekroczenie".Range("A3".ActivateEnd IfEnd IfEnd WithEnd Sub
05-05-2005 17:27
losmac "profesorek"
Typ: neutral Postów: 758 Zarejestrowany: May 2003
With ThisWorkbook.Worksheets("Arkusz1"Do While .Range("A" & i) > 0 If .Range("A" & i) > 0 Then MsgBox "przekroczenie" .Range("A" & i).Activate Exit do End If i = i+2LoopEnd With _____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
05-05-2005 18:59
toja
Typ: neutral Postów: 31 Zarejestrowany: Apr 2005
Witam,W jaki sposób wpisać do CommandButton1 kod, który by sprawdzał, czy w Skoroszycie występuje arkusz o nazwie Arkusz1. Jeżeli tak to powinien się otworzyć, a jak go nie ma to, MsgBox"Arkusz nie występuje"----------------------------------Pozdrawiam Marian
23-05-2005 16:05
losmac "profesorek"
Typ: neutral Postów: 758 Zarejestrowany: May 2003
Możesz to zrobić na 2 sposoby:1)==========================================Dim wsh As WorksheetDim wystepuje As Booleanwystepuje = FalseFor each wsh in ThisWorkbook.Worksheets If wsh.name = "Arkusz1" wystepuje = TrueNext wshMsgbox "Arkusz 'Arkusz1' występuje w zeszycie:" & wystepuje==============================================2)===========================================Dim wsh As WorksheetOn Error Resume NextSet wsh = ThisWorkbook.Worksheets("Arkusz1"If Not wsh is Nothing Then MsgBox "Występuje"Else MsgBox "Nie występuje"End IfSet wsh = Nothing==============================================Pierwszy jest łatwiejszy do użycia dla początkujących. Drugi wymaga pamiętania, że należy wyłączyć obsługę błędów i raczej wymaga już jakiś umiejętności programistycznych.Decyzja należy do Ciebie... [Post edytowany dnia 23-05-2005 22:23 przez losmac]_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
23-05-2005 22:22
toja
Typ: neutral Postów: 31 Zarejestrowany: Apr 2005
No i następna sprawa z If. Rozumuję to tak :Jeżeli w komórce B2 pojawi się wyraz Styczeń to wartości z Kolumny K z K1 do K31 maja być skopiwane do wiersza 2 do komórek od E2 do AI2 Następnie jak pojawi się w komorce B2 wyraz Luty to wartości z Kolumny K z K32 do K59 maja być skopiwane do do wiersza 2 do komórek od E2 do AI2itd, itdPoprostu kopiuję dane z kolumny i wklejam do wiersza--------------------------------------Pozdrawiam Marian
26-05-2005 13:44
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20