< návrat zpět

MS Excel


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

Zaslal/a 20.3.2020 16:57

Merlin99Zdarví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: rar46236_test1.rar (16kB, staženo 25x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  1 2   další »
#046237
elninoslov
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
#046238
MePExG
COM AddIns - Inquire.citovat
#046240
Merlin99
elninoslov
První postup funguje parádně, použiju,
DĚKUJI MOC pomohlo 5 1

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
#046243
avatar
Microsoft office tools:
Spreadsheet Comparecitovat
#046283
Merlin99
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
#046284
Merlin99
*Příloha
Příloha: rar46284_test5-a.rar (17kB, staženo 23x)
citovat
#046285
elninoslov
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").Value
citovat
#046287
Merlin99
elninoslov
apostrofy NOJOOO už to fungujeeeee DÍKY MOC 5 5

Ř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
#046289
elninoslov
Mne to fachá. Tak veľa zdaru.citovat
#046291
Merlin99
elninoslov
máte pravdu funguje to také, já tam totiž nedával ve Workbooks("TEST5.xlsm") tu příponu .xlsm ( 6 )

DÍKY MOC 5citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje