..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

seštevanje z makrom

Pomoč pri izdelavi makrov

seštevanje z makrom

OdgovorNapisal/-a rick » Po feb 16, 2009 11:15 am

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



Matjazev.NET
 

OdgovorNapisal/-a admin » Po feb 16, 2009 1:54 pm

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

OdgovorNapisal/-a rick » Po feb 16, 2009 7:28 pm

pozdravljeni :)

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

imejte se fajn.

lp rick
rick
 
Prispevkov: 216
Pridružen: So feb 17, 2007 9:18 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron