Excel - funkce nahradit pomocí makra
Ahoj,
chci např. do buňky A1 zapsat číslo, které bude vyhledáno a nahrazeno číslem z buňky A2 v buňce, na které stojím. To vše za pomocí tlačítka. Nahrání makra přineslo toto:
Sub nahradit()
' nahradit Makro
ActiveCell.Replace What:="4", Replacement:="3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="4", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub
Ale nevím, co dosadit za hodnoty "4" a "3".
Díky za rady.
Ten kód vyhledá buňku s obsahem 4 a nahradí ho 3.
Musíš definovat co chceš přesněji. Respektive Excel musí přesně vědět odkud má vzít hodnotu a kam ji zapsat. Takže řekněme že stojíš na buňce, kam chceš vložit hodnotu.
Načteš si hodnotu, kterou hledáš
Hod = InputBox("Zadej hodnotu")
Vyhledej hodnotu
Set HPos = Cells.Find(What:=Hod, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
Otestuj, jestli se něco našlo, když ano přenes hodnotu
If Not HPos Is Nothing Then ActiveCell.Value = HPos.Value
Díky, sice jsem to nedělal přes inputbox, ale i tak to pomohlo.