Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

A picat forum.softpedia.com

bodycam protectie personala

Studiu de caz: samuraiul Yamaha/ ...
 Unde poti arunca pamant curat

Recomandare monitor pentru citit ...

Economie gaz ca urmare a automati...

Romania vs Schengen
 recomandare leptop

Probleme la browsing pe chrome

conectare 2 monitoare

Intel management engine
 Cum pot sa scot dintr-o mufa mama...

Sotie ce refuza sa-si ingrijeasca...

Electrician in Canada

spațiu transfer
 

VB Excel

- - - - -
  • Please log in to reply
2 replies to this topic

#1
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Pana la urma cred ca o sa fac varianta in VB. am incept sa ma uit pe net despre vb si o sa incerc sa imi fac excelul de care am nevoie in visual basic. Am scris acest cod nu imi da nici o eroare dar nu merge.

Sub activateSheet(sheetname As Long)
'activates sheet of specific name
    Worksheets(Sheet2).Activate
End Sub
Sub activateSheet(sheetname As Long)
'selects sheet of specific name
    Sheets(Sheet2).Select
End Sub
Subs ifs()
If Columns(B) > 40 And Columns(B) < 50 Then
Cells© = Range(B).Value
End If

Ar trebui sa se updateze automat sau trebuie sa ii dau o comanda de auto. Sau sa atasez la un buton ?

Edited by tzuny, 16 December 2013 - 09:16.


#2
glumetu

glumetu

    Jedi sora-mea!

  • Grup: Senior Members
  • Posts: 6,958
  • Înscris: 27.04.2005
ce vrei sa faci, de fapt?

pune codul intre taguri corespunzatoare altfel ni-l umple de smileys

#3
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Vreau ca din Coloana A cand sunt introduse valori in coloana B sa imi afiseze valorile daca se incadreaza intre limite. gen
Coloana A:   Coloana B(if A>40 and A < 50 show in Posted Image
43 43   
44 44
21    Nu
66 Nu

Sub activateSheet(Sheet2 As Long)
'activates sheet of specific name
Worksheets(Sheet2).Activate
End Sub
Sub activateSheet(Sheet2 As Long)
'selects sheet of specific name
Sheets(Sheet2).Select
End Sub
Sub Test()
Dim LastRow As Long
Dim i As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Range("A" & i).Value >40 and Range("A" & i).Value <50 Then
Range("B" & i).Value = Range(A).value
End If
Next i
End Sub

Edited by tzuny, 16 December 2013 - 09:41.


Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

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