Matjazev.NET

Stenly

Pozdravljeni

Prilagam kodo, kako boste našli err.

Sub Err()
'
    For Each c In Range("C4:D8")   'Range("C4:D8") je obseg pregleda
     If Application.WorksheetFunction.IsError(c) = "TRUE" Then MsgBox c.Address   'celica z err.
    Next

End Sub

Naprej mi pa ni povsem jasno kaj želite.

Lp

Stenly

To je to, kar sem želel.

Se zahvaljujem; lp.

Stenly

Pozdravljeni

S tipko "ESC" se lahko ustavi izvajanje makra. Zanima me kako bo to preprečil. Torej; želim, da izvajanje makra ni moč preprečiti do konca.

Lp

Stenly

Pozdravljen miha1

S funkcijo v polju mi ni šlo

, pošiljam pa kodo.

Koda: Izberi vse

Sub Makro2()
'
   st_dni = 0
    For Each c In Range("A1:A1000")
     If Format(c, "m") = 3 Then st_dni = st_dni + 1
'3 pomeni marec
'"m" pomeni mesec v številki
    Next
   MsgBox st_dni

End Sub

Lp

Stenly

Mogoče bo pa to to.

Koda: Izberi vse

Sub Makro1()
'
On Error GoTo Konec

  MyString = Range("A1").Value
  D_S = Len(MyString)
 For i = 1 To D_S
  If Right(Range("A1").Value, 1) <> " " Then Exit For
   Range("A1").Value = Left(MyString, (D_S - i))
  Next i

Konec:
End Sub

Lp

Stenly

kako pa odrežem presledke za zadnjo črko?

Kaj pa je zadnja črka - primer

?

Stenly

Pozdravljen Matjaž

Sem vesel, da forum spet "dela"

. Pripomba pa je glede časa. Mislim, da kaže -2 uri (na forumu).

Lp

Stenly

Izgleda, da sva na liniji, samo jaz sem malo bolj počasen,...

Ja, kot ste rekli tudi presledek je znak. Še 1x preverite text in boste videli, da nimate istega. "KRNEKI", se ne dogaja več GARANTIRANO!

Lp

Stenly

Še 1x pozdrav

Bil sem malce prepozen. Kar pa je tudi v redu, saj velja, kar se Janezek nauči to zna. In če pridemo sami do rešitve, je to vredno še več

.

Lp

Stenly

Pozdravljen Vprašanje ste postavili v rubriko EXCEL, sprašujete po rešitvi z VB, verjetno pa želite kodo v VBA-ju. No ja, vsak si razlaga po svoje. Koda: VBA: Sub Makro1() ' Dim MyString MyString = Range("A1").Value ' Define string A1. MsgBox Left(MyString, 4) End Sub f v EXCEL-ovi preglednici: =LEF...

Stenly

Ponovno pozdrav Ob moji ideji prilagam še kodo Sub Makro1() ' For Each c In Range("A1:D100") If Worksheets("List1").Range(c.Address).Value = Worksheets("List2").Range(c.Address).Value Then Worksheets("List3").Range(c.Address).Value = Worksheets("List1").Range(c.Address).Value Worksheets("List1").Ran...

Stenly

Pozdravljen Zanima me, kako naj primerjam list1 z listov2 tako da se mi bodo vsi ki so na obeh listih prepisali v list3 iz lista1 pa zbrisali. Napisali ste malce nerazumljivo: - ne poveste, ali gre za primerjavo podatkov, formul, predmetov,... - ne poveste, kam naj bi se ti podatki prepisali v list3...

Stenly

Pozdravljen miha1

Res bo najbolj enostavno, kot je rekel Matjaž. Omenjeno zaščito pa naj namesto vas opravi računalnik ob aktivaciji lista.

Koda: Izberi vse

Private Sub Worksheet_Activate()
'
    Cells.Locked = False
    Range("A1:C100").Locked = True
    ActiveSheet.Protect
    
End Sub

Lp

Matjazev.NET

Našli ste 223 zadetkov

Izvedba makra v celoti

Čas