Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
The Tattooist of Auschwitz (2024)

Se poate recupera numar de telefo...

Upgrade de la MacBook Pro M1 cu 8...

Ce tip de monitor am nevoie pt of...
 Resoftare camera supraveghere

Cu ce va aparati de cainii agresi...

Nu imi platiti coletul cu cardul ...

Exista vreun plan de terorizare p...
 Schimbare adresa DNS IPv4 pe rout...

Recomandare Barebone

Monede JO 2024

Suprasolicitare sistem electric
 CIV auto import

Mutare in MOZAMBIC - pareri, expe...

Scoatere antifurt airtag de pe ha...

Magnet in loc de clește pent...
 

De ce nu functioneaza urmatorul macro?

- - - - -
  • Please log in to reply
1 reply to this topic

#1
Yurian

Yurian

    New Member

  • Grup: Members
  • Posts: 7
  • Înscris: 18.08.2006
explicati-mi si mie a rog frumos de ce nu functioneaza urmatorul macrou:

Private Sub CommandButton1_Click()
Dim i, k As Integer
Dim j As Integer
Dim ok1 As Boolean
Dim ok As Boolean
Dim v(10) As String
v(1) = "A"
v(2) = "B"
v(3) = "C"
v(4) = "D"
v(5) = "E"
v(6) = "F"
v(7) = "G"
v(8) = "H"
v(9) = "I"
v(10) = "J"
ok = True
ok1 = False
i = 1
Do Until (ok) And (ok1)
For j = 1 To 5
If Cells(i, v(j)) > 0 Then ok = False
Next j
If ok Then
Rows("13:13").Select
Selection.Delete Shift:=xlUp
End If
If ok Then
ok1 = True
k = i + 1
For j = 1 To 5
If Cells(k, v(j)) > 0 Then ok1 = False
Next j
End If
i = i + 1
Loop
End
End Sub
  imi da o eroare de genu aplication defined or user defined error :worthy:  :worthy:  :worthy:  :worthy:

___
mod edit:
1. Fi putin mai explicit atunci cand alegi numele topic-ului, "ajutoooooor" nu e un nume ...
2. foloseste tag-urile de cod


Edited by RAZ, 04 September 2006 - 09:07.


#2
Hato0be

Hato0be

    Junior Member

  • Grup: Members
  • Posts: 49
  • Înscris: 05.07.2006
//Yurian, la mine functioneaza perfect codul, fara nici o eroare. Cu toate ca pe penultima linie - End este in plus.

Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate