[es] - makro find/replace

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

^{12.03.2012. u 14:28 - pre 147 meseci}

Pozdrav!

Code:

Sub fire
Range("A9:C2629").Select
Selection.Replace What:="100.00%", Replacement:="100.00001%", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

ovim makroom pokusavam da zamenim od 9-tog reda pa nadalje tamo gde pise 100,00% sa 100,00001%.

ali ne funkcionise. ne prijavljuje gresku, ali ni ne zameni brojeve.

jel neka greska u kodu ili??

hvala unapred!

_{[Ovu poruku je menjao 3okc dana 13.03.2012. u 02:31 GMT+1]}

Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3453

Jabber: djoka_l

+1462 Profil

Re: makro find/replace

^{12.03.2012. u 14:44 - pre 147 meseci}

Izbaci procenat iz zapisa broja:

Code:

Sub fire
Range("A9:C2629").Select
Selection.Replace What:="100.00", Replacement:="100.00001", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

_{[Ovu poruku je menjao 3okc dana 13.03.2012. u 02:31 GMT+1]}

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro find/replace

^{12.03.2012. u 15:21 - pre 147 meseci}

nece!!

:(

posto ustvari stoji 100,00%, probala sam i sa 1.00 i sa 100,00 i sa 100.00 nece pa nece..

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro find/replace

^{12.03.2012. u 17:34 - pre 147 meseci}

Pokusaj sa ovim kodom

Code:
Sub fire()
Dim Procenat As Variant
Range("A9:C2629").Select
For Each Procenat In Selection
    If Procenat = "1" Then
        Range(Procenat.Address) = "100.00001%"
        Range(Procenat.Address).NumberFormat = "0.00000%"
    End If
Next
End Sub

trebalo bi da radi.

Kod mene je tvoj kod prijavljivao gresku, a verovatno ti nije menja zato sto Excel 100,00% podrazumeva kao 1, sto u stvari i jeste jer 100% je 1 celo odnosno 1.

Jos da dodam da ti 3 red koda i nije potreban

Znaci moze i bez Range("A9:C2629").Select s tim sto bi morala sama da izvrsis selekciju celija u kojima zelis da izvrsis izmene.

[email protected]=

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: makro find/replace

^{13.03.2012. u 01:29 - pre 147 meseci}

Code:
Dim cl As Range

    For Each cl In [A9:C2629].Cells
        If cl.Value = 1 Then cl.Value = 1.0000001
    Next cl

Format postavljaš jednom -pa i to, nema potrebe da to činiš iz VBA koda, još manje u petlji.

Inače, može i direktno, iz Immediate prozora (VB Editor, Ctrl+G)
[A9:C2629].NumberFormat = "0.00000%"

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro find/replace

^{14.03.2012. u 14:32 - pre 147 meseci}

Code:
Sub multiFindNReplace()

Dim myList, myRange, newRange

Set myList = Sheets("Tabelle2").Range("V7:W17")

Set myRange = Sheets("Tabelle2").Range("A2:A149")

'Set newRange = Sheets("Tabelle2").Range("N2:N149")

For Each cel In myList.Columns(1).Cells

myRange.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value

Next cel

End Sub

Code:
Sub FINDREPLACE()



  Dim target, cell As Range

  Dim i, k As String

  i = Range("V7")



  k = Range("W7")

  Set target = Sheets("Tabelle2").Range("A2:A149")

  For Each cell In target

      If cell.Value = i Then

        target.Parent.Cells(cell.Row, "N").Value = k



      End If

Next



End Sub

jos jedno pitanje. imam ova dva koda. prvi kod je mnogo brzi ali radi se to tome menja podatke iz kolone A gde trazi podatke koji su sadrzani u koloni V.
a meni treba da nadje u koloni A (iz kolone V) i offset u kolonu N (podatak iz kolone W)

ovaj drugi kod uradi to, ali samo za jednu, prvu vrednost.

a meni treba za sve vrednosti iz kolone V.

da li nekako moze ovaj prvi kod da se popravi tako da kad nadje iz kolone V u koloni A, offset-uje u kolonu N iz kolone W.

ili ovaj drugi da se prepravi.

hvala za ovaj kod sa 100%. sad radi!!!

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro find/replace

^{14.03.2012. u 14:55 - pre 147 meseci}

ee, ovako nesto resava ovaj moj drugi problem.

Code:
Sub multiFindNReplaceV2()

Dim w1 As Worksheet, w2 As Worksheet

Dim c As Range, fr As Long

Application.ScreenUpdating = False

Set w1 = Worksheets("Tabelle2")

Set w2 = Worksheets("Tabelle2")

For Each c In w2.Range("V7:V17")

  fr = 0

  On Error Resume Next

  fr = Application.Match(c, w1.Columns(1), 0)

  On Error GoTo 0

  If fr <> 0 Then

    w1.Cells(fr, 14).Value = c.Offset(, 1).Value

  End If

Next c

Application.ScreenUpdating = True

End Sub

Odgovor na temu