Pozdravljeni
Rad bi seštel z makrom naslednje vrednosti:
torej kako sešteti z makrom : če obstajata lista: list1,list2, potem seštej
=List1!A1+List2!A1
In napiši rezultat v List5!A1
ali, če obstajajo listi list1,list2,list3,potem seštej
=List1!A1+List2!A1+List3!A1
In napiši rezultat v List5!A1
Upam ,da ne bo prehudo.Za odgovor se najlepše zahvaljujem.
Lp rick
seštevanje z makrom
Spodaj imate funkcijo, ki vam bo povedala ali nek list v delovnem zvezku obstaja. Pod njo pa je še primer procedure, ki sešteva celice iz različnih listov, tako kot ste zapisali v primeru:
Koda: Izberi vse
' www.matjazev.net
' februar 2008
Function AliListObstaja(ImeLista As String) As Boolean
Dim Sh As Worksheet
AliListObstaja = True
On Error Resume Next
Set Sh = Worksheets(ImeLista)
If Err Then AliListObstaja = False
End Function
Sub PrimerSestevanja()
If AliListObstaja("List1") And AliListObstaja("List2") And AliListObstaja("List5") Then
Sheets("List5").Range("A1") = Sheets("List1").Range("A1") + Sheets("List2").Range("A1")
End If
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator