Matjazev.NET

Zdravo! Sub ZdruziDatoteke() Dim Mapa As String Mapa = "c:\test" Dim NovaDatoteka As Workbook Set NovaDatoteka = Workbooks.Add Dim datoteka datoteka = Dir(Mapa & "\*.xls") Do While datoteka <> "" Dim wb Set wb = Workbooks.Open(datoteka) For i = 1 To Sheets.Count If wb.Sheets(i).Name = "Moj list" The...

Pozdravljeni! Tudi sam sem preizkusil makro in res se obnaša tako kot je napisal rick . Da pa je makro stvar izvedel, sem pa ga pripravil takole: V mapi kjer so zvezki, ki naj se združijo, sem odprl prvi zvezek, naj ga poimenujem "Moj zvezek" in nato pognal makro. Seveda se je ustavil kot je bilo že...

Zdravo! Vaš problem bi jaz rešil s tole formulo: =IF('Prvi list'!$B1='Drugi list'!$H$1;'Prvi list'!A1;"") Da še pojasnim: formulo skopirajte v celico A1 na list, na katerem bi radi imeli skopirane podatke; v mojem primeru "Drugi list"! Podatke pa imate na listu z imenom "Prvi list". Potem pa formulo...

Preberite si to temo:
http://www.matjazev.net/forum/viewtopic ... anje+celic

Verjetno je kolma mislil na tole:

http://www.monitor.si/novica/excel-2007-narobe-racuna/

Ja res je tako, kot ste zapisali. Ugotovil sem le, da je to le v primeru, da sta 1. in 2. zapis enaka!?! Zakaj je tako, pa pojma nimam, morda bug. Torej probajte poskrbeti da prvi in drugi zapis ne bosta enaka... Prav zanimivo!!! Še nekaj sem ugotovil. Če npr. celico A1 poimenujete npr. "Šifre" je p...

Zdravo, Če vse dela v redu, če pobrišete rezultate v stolpcu B, pa jih pred vsakim zagonom makra pobrišiva: Sub Edinstveni_zapisi() Columns("B:B").Select Selection.ClearContents Columns("A:A").Select Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ "B2"), Unique:=True Range("D...

Zdravo, Posnel sem vam makro, ki bo iz stolpca A izbral vse različne zapise in jih prilepil od B2 navzdol Sub Edinstveni_zapisi() Columns("A:A").Select Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ "B2"), Unique:=True Range("D1").Select End Sub Potem pa bo mislim v redu. Pr...

Zdravo,

Če prav razumem problem, bi ga rešil takole:



lp,

cedra

Zdravo, Morda tole: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Target = Range("A1") Dim Vsota As Double Dim i As Integer Vsota = 0 For i = 1 To Range("A1").Value Vsota = Vsota + Cells(1, i + 1).Value Next i Range("A2") = Vsota End Sub Rezultat je v celici A2! lp, cedra

Pozdrav,

Podatki --> Besedilo v stolpce..., bo rešilo problem

lp,

cedra

Pozdrav, Naj vas popravim; to ni macro, ampak funkcija, ki vam omogoča, da v poljubni celici dobite izračun (vsoto), vseh neoznačenih celic! Preračun je možen s pritiskom na F9! Še ena možnost: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Calculate Application...

Pozdrav, Tukaj imate funkcijo, ki vam bo vrnila seštevek celic v izbranem področju: Public Function Sestej_Nepobarvane(podrocje As Range) Dim Cell As Object Dim x As Double Application.Volatile x = 0 For Each Cell In podrocje If Cell.Interior.ColorIndex = xlNone Then x = x + Cell.Value End If Next C...

To boste najboljše opravili s tem, da ob spremembi, dodajanju podatkov, spremenite obseg vhodnih podatkov. Drugače je graf preveč nepregleden. Slej kot prej, pa vam bo tudi vnaprej pripravljen graf enkrat "premajhen". Z dodajanjem vhodnih podatkov je nekaj sekund dela. Sicer se mi je pa zdelo, da je...

Zdravo, Najprej označite celice od A2:D4 --> klik na ikono za graf --> izberite vrsto grafa (v vašem primeru črtni graf) --> Naprej --> zavihek Niz --> označite prvi "Moč (W)", (v okenčku Nizi) in v okenčku za Ime spremenite $B$2 v $B$1 --> isto naredite še za ostala dva "Moč (W)" (iz 2 v 1), --> Na...