• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Porovnání dvou stejných buněk z různých sešitů

Zaslal/a Merlin99 20.3.2020 16:57

Zdarvím,
potřeboval bych poradit jak upravit makro tak aby dokazalo vyhodnotit jestli se bunka B5 v Listu1 a sešitu TEST1.xlsm rovná bunce B5 Listu1 ale sešitu TEST2.xlsm.

Předpoklad otevřeného sešitu TEST2.xlsm je ošetřen.
Viz příklad, Děkuji za rady...

Příloha: 46236_test1.rar (16kB, staženo 24x)

Zaslat odpověď >

---

Strana:  1 2   další »

elninoslov(20.3.2020 17:53)#046237

Súbor otvárať nemusíte. Môžete použiť buď metódu ExecuteExcel4Macro, alebo vzorec do nepoužívanej bunky.
Sub Porovnaj()
Dim Hodnota
With ThisWorkbook.ActiveSheet
With .Range("H4")
.Formula = "='" & ThisWorkbook.Path & "\[TEST2.xlsm]List1'!$D$5"
Hodnota = .Value
.ClearContents
End With

If Hodnota = .Range("D5").Value Then
MsgBox "Bunky se rovnají"
Else
MsgBox "Bunky se NErovnají", vbCritical
End If
End With
End Sub
Sub Porovnaj2()
Dim Hodnota
With ThisWorkbook
Hodnota = Application.ExecuteExcel4Macro("'" & .Path & "\[TEST2.xlsm]List1'!R5C4")
If Hodnota = .ActiveSheet.Range("D5").Value Then
MsgBox "Bunky se rovnají"
Else
MsgBox "Bunky se NErovnají", vbCritical
End If
End With
End Sub
Na pár buniek ExecuteExcel4Macro rýchlostne v pohode. Na tisíce použite z týchto dvoch metód radšej tie vzorce.citovat

MePExG(20.3.2020 19:10)#046238

COM AddIns - Inquire.citovat

Merlin99(20.3.2020 19:26)#046240

elninoslov
První postup funguje parádně, použiju,
DĚKUJI MOC pomohlo

mepexg
COM AddIns - Inquire.
Koukám na nějaký videa a vypadá to zajímavě (neznal jsem) dalo by se také použít ne jenom na toto díky za nápad více to prostuduji.

DÍKYcitovat

lubo(20.3.2020 23:54)#046243

Microsoft office tools:
Spreadsheet Comparecitovat

Merlin99(23.3.2020 19:55)#046283

Zdravím, vyzvoril jsem jeste snazsi makro ktere je krasne prehledne a funguje presne jak potrebuju (kontroluje jen nazev bez ohledu na cestu atd) ale jakmile nazev sešitu přejmenuju na TEST5 - a.xlsm (proste kdykoli dam do nazvu sesitu mezeru s pomlckou tak prestane fungovat..) Neslo by to nejak osetrit?
Děkuji za radycitovat

Merlin99(23.3.2020 19:56)#046284

*Příloha

Příloha: 46284_test5-a.rar (17kB, staženo 22x)

citovat

elninoslov(23.3.2020 21:42)#046285

Chýbajú tam apostrofy
CESTA = "'[" & ThisWorkbook.Name & "]" & "List1'!D5"
ale hlavne to postráda zmysel, načítať hodnotu otvoreného súboru cez EVALUATE. Veď poznáte meno zošitu aj listu aj adresu bunky, tak si dajte
Workbooks("TEST5.xlsm").Worksheets("List1").Range("D5").Value
a
ThisWorkbook.Worksheets("List1").Range("D5").Valuecitovat

Merlin99(23.3.2020 21:56)#046287

elninoslov
apostrofy NOJOOO už to fungujeeeee DÍKY MOC

Řešení:
Toto jsem zkoušel hned na začátku ještě než jsem psal tento příspěvek a to nefunguje.
Workbooks("TEST5.xlsm").Worksheets("List1").Range("D5").Value
a
ThisWorkbook.Worksheets("List1").Range("D5").Value

Netuším proč ale až když jsem náhodou narazil na EVALUATE tak to začalo běhat ale netuším proč.
Děkuji moc za pomoooccitovat

elninoslov(23.3.2020 22:06)#046289

Mne to fachá. Tak veľa zdaru.citovat

Merlin99(24.3.2020 9:18)#046291

elninoslov
máte pravdu funguje to také, já tam totiž nedával ve Workbooks("TEST5.xlsm") tu příponu .xlsm ( )

DÍKY MOC citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse