VB Excel

#1
tzuny

Posted 16 December 2013 - 09:09

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(

> 40 And Columns(

< 50 Then
Cells© = Range(

.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.

Back to top

#2
glumetu

Posted 16 December 2013 - 09:18

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

Back to top

#3
tzuny

Posted 16 December 2013 - 09:28

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.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

VB Excel

#1 tzuny Posted 16 December 2013 - 09:09

#2 glumetu Posted 16 December 2013 - 09:18

#3 tzuny Posted 16 December 2013 - 09:28

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
tzuny

Posted 16 December 2013 - 09:09

#2
glumetu

Posted 16 December 2013 - 09:18

#3
tzuny

Posted 16 December 2013 - 09:28