seštevanje z makrom

Pomoč pri izdelavi makrov
Odgovori
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

seštevanje z makrom

Odgovor Napisal/-a rick »

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
:wink:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

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
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Odgovor Napisal/-a rick »

pozdravljeni :)

hvala za zares dobro rešitev,ki ste mi jo ponudili.

imejte se fajn.

lp rick
Odgovori