VBA-code gevraagd

[Senso]

	Op ieder blad staan in kolom c getallen
Macro1	Opdracht zoek getal 15 in Workbook en maak de rechter aangrenzende cel leeg
Macro2	Opdracht zoek getal 15 in Workbook en plaats in de rechter aangrenzende cel de tekst Jan

voorbeeld volgt > zijn twee aparte
opdrachten?

 

[snb]

Je kunt alleen zoeken in een werkblad, niet in een bestand.

 

[Senso]

Met Vervangen/Zoeken naar: kan dat wel via Opties << Binnen: > Werkmap

 

[emields]

Als je het antwoord weet, waarom stel je dan de vraag?

 

[Senso]

Ik geef antwoord op wat snb schrijft. Ik geef geen antwoord op mijn vraag. Mijn vraag is, (kan er dan op neerkomen) of deze procedure omgezet kan worden naar VBA. Maar dan zegt de deskundige mogelijk, die vergelijking slaat nergens op.

 

[peter59]

Met Vervangen/Zoeken naar: kan dat wel via Opties << Binnen: > Werkmap

@emields
Dat is het antwoord niet. De aangrenzende cel wordt niet vervangen of leeg gemaakt. Je kan alleen, in dit geval het getal 15 vervangen door, weet ik veel.

 

[mvdvlist]

Zie bijlage

 

[Senso]

Peter,
Dan zoek je 15 en krijgt het getal 15 en met een standaard tekst kun je die dan naast de cel die 15 bevat plakken. Kan op die manier maar toch erg lastig/kost tijd.

 

[Senso]

@opa Maarten
Mooi gedaan, maar ik stel vast dat het slechts voor één sheet werkt.
Zie wel dat je de code kunt aanpassen maar dat is bij vijftig bladen niet te doen.

 

[snb]

Private Sub CommandButton1_Click()
    For Each it In Sheets
       Do While Not it.Cells.Find(15, , , 1) Is Nothing
        With it.Cells.Find(15, , , 1)
           .Value = "_15"
           .Offset(, 1) = ""
        End With
       Loop
       it.Cells.Replace "_15", 15
    Next
End Sub

50 bladen is 49 bladen teveel.

 

[mvdvlist]

Kun je wel degelijk. Bij blad zet je iets als sheets. sheets.count in een loopje
Heb je even huiswerk
SNB was me net voor. Ook prachtig...

 

[emields]

Misschien kan je de vraag als opgelost zetten?