Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Instrukcja If
toja




Typ: neutral
Postów: 31
Zarejestrowany: Apr 2005
Instrukcja If

Wiem że to jest proste ale nie kumam tego

Nie wiem jak dopisać drugą częśc tej instrukcji

Pierwsza część:

If .Range("AL7" = "" Then
MsgBox " 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
Pokaż profil toja  Wyślij email do toja   
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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
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".Activate
With ThisWorkbook.Worksheets("Arkusz1"

If .Range("A1" > "0" Then
MsgBox "przekroczenie"
.Range("A1".Activate

Else

If .Range("A3" > "0" Then
MsgBox "przekroczenie"
.Range("A3".Activate

End If
End If
End With
End Sub

05-05-2005 17:27
Pokaż profil toja  Wyślij email do toja   
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+2
Loop
End 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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
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
Pokaż profil toja  Wyślij email do toja   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Możesz to zrobić na 2 sposoby:

1)==========================================

Dim wsh As Worksheet
Dim wystepuje As Boolean
wystepuje = False
For each wsh in ThisWorkbook.Worksheets
    If wsh.name = "Arkusz1" wystepuje = True
Next wsh
Msgbox "Arkusz 'Arkusz1' występuje w zeszycie:" & wystepuje

==============================================

2)===========================================

Dim wsh As Worksheet

On Error Resume Next

Set wsh = ThisWorkbook.Worksheets("Arkusz1"

If Not wsh is Nothing Then
    MsgBox "Występuje"
Else
    MsgBox "Nie występuje"
End If

Set 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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
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 AI2
itd, itd
Poprostu kopiuję dane z kolumny i wklejam do wiersza
--------------------------------------
Pozdrawiam Marian

26-05-2005 13:44
Pokaż profil toja  Wyślij email do toja   
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1