Vyhledání hodnoty v oblasti a zápis do vedlejší buňky Vyřešeno
Vyhledání hodnoty v oblasti a zápis do vedlejší buňky
Dobrý den, potřeboval bych poradit s makrem, které by v oblasti S3:S168 vyhledalo hodotu buňky A1, a potom o dvě buňky vedle a dvě buňky dolů od buňky obsahující hodnotu buňky A1, zapsalo hodnotu buňky B1. Takže v případě, že by hodnota buňky A1 byla v buňce S68, zapsala by se hodnota buňky B1 do buňky U70. Hodnota buňky A1 může být v žádné, jedné, nebo i více buňkách z výše uvedené oblasti. Děkuji moc za rady
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Vyhledání hodnoty v oblasti a zápis do vedlejší buňky
A musí to být nutně makro? Na to stačí jednoduchý vzoreček s fcí KDYŽ (IF) + absolutní adresování.
- Přílohy
-
- pc-help_4733.xls
- (24 KiB) Staženo 73 x
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Vyhledání hodnoty v oblasti a zápis do vedlejší buňky Vyřešeno
Nas zakaznik, nas pan.
Poslouzi tato procedura:
Poslouzi tato procedura:
Kód: Vybrat vše
Option Explicit
Sub NajdiDosad()
Dim Blk As Range, BCll As Range
Dim ACll As Range
Dim FrstAddr As String
With Worksheets("list1")
Set ACll = .Range("a1") ' zdroj
Set Blk = .Range("s3:s168") ' definice prohledavaneho bloku
' prohledat blok
With Blk
Set BCll = .Find(ACll.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not BCll Is Nothing Then ' nalezena shoda
FrstAddr = BCll.Address
Do
BCll.Offset(2, 2).Value = ACll.Offset(0, 1).Value ' vlozit hodnotu z B1
Set BCll = .FindNext(BCll) ' hledat dal
Loop While Not BCll Is Nothing And BCll.Address <> FrstAddr
End If
End With
End With
' odstranit objektove promenne
Set ACll = Nothing
Set Blk = Nothing
Set BCll = Nothing
End Sub
Re: Vyhledání hodnoty v oblasti a zápis do vedlejší buňky
Oběma vám děkuji za rychlou reakci, makro to být musí, je to součástí většího projektu. Návštěvníku tvoje makro jsem ozkoušel a jako vždy funguje perfektně, díky moc.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky - 7
- 2137
-
od elninoslov
Zobrazit poslední příspěvek
23 kvě 2023 22:38
-
-
- 0
- 1516
-
od showpayne
Zobrazit poslední příspěvek
07 srp 2023 19:08
-
-
Graf v Excelu ukazuje chybné hodnoty. Příloha(y)
od atari » 25 dub 2024 08:42 » v Kancelářské balíky - 4
- 218
-
od atari
Zobrazit poslední příspěvek
25 dub 2024 13:28
-
-
-
Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8... - 0
- 1116
-
od Grander
Zobrazit poslední příspěvek
29 čer 2023 17:34
-
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2152
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 22 hostů