Matjazev.NET

Pozdravljeni!
Kako pa bi izgladal makro, da izbrane celice na aktivnem listu sprmenim v vrednosti brez formul?
Hvala!
LPB

Najlepša hvala za tako hiter odgovor!!
Zadeva deluje!
Obenem pa vsem želim vesele praznike!
LPB

Pozdravljeni!
Pri deljenju dobim rezultat n.pr.: 21,573333339.
Kaj naj naredim, da bo prikazan rezultat 21,5 (ne zaokroženo na 21,6). Poizkusil sem s funkcijo "LEFT", vendar to ne deluje če dobim rezultat n.pr.:1,57333339
LPB

OK Hvala!
LP

Kaj pa popolnoma brez?

N.pr.: Za list1 je v VBA zapisan makro "Dodaj list z novim imenom". Recimo, da je novo ime novo ustvarjenega lista "Krneki". Ko grem v VBA urejevalnikin pogledam list "Krneki", imam tam zapisan isti makro "Dodaj list z novim imenom", torej se je prekopiral skupaj z listom. Rabil pa bi, da se del teg...

Pozdravljeni!
Z makrojem kopiram list in ga dodam v DZ z novim imenom (iz celice A1). Pri tem se v VBA na tem novem listu prenese tudi celotna koda.
Ali je možno,(in kako) da se prenese samo del kode?
Hvala in LP

Hvala

Pozdravljeni!
Pozabil sem, kako grem na določeno celico, brez da uporabljam drsnike ali smerne tipke in iščem celico.
Hvala in LP

Kaj pa samo tole?
Ko v ComboBox-u izberem nek zapis (iz lista 2, stolpec »B«), bi se v textBox izpisal podatek iz iste vrstice, stolpec »C

Pozdravljeni! Prosim za pomoč- V DZ imam dva lista. Na prvem je ukazni gumb, kateri mi prikaže UserForm1, na drugem listu pa so podatki. UserForm ima ComboBox, dva textBox-a, tri opcijska stikala, DateTimePicker in tri CheckBox-e. Ker moram na drugem listu večkrat popravljati podatke, bi želel nekak...

Urejeno!
Deluje z naslednjo kodo: Najlepša hvala obema!
LP

Točno to bi želel.

admin napisal/-a:... Kar poglejte na konec, če je lastnost pravilno nastavljena... Čez priloženo kodo se na žalost nimam časa prebijati...

Kateri konec- konec česa?

Tole je cela koda za Combo Private Sub UserForm_Initialize() Dim UniqueList() As String Dim x As Long Dim Rng1 As Range Dim c As Range Dim Unique As Boolean Dim y As Long Set Rng1 = Sheets("Podatki").Range("B5:D2000") y = 1 ReDim UniqueList(1 To Rng1.Rows.Count) For Each c In Rng1 If Not c.Value = v...