• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Takže List2 bude jeden SÚBOR, a list Data bude druhý SÚBOR. Budú obidva vždy otvorené? Lebo ak nie, makro bude musieť cieľový otvárať pre zápis, alebo otvárať zdrojový pre čítanie. Ktorý z nich má obsahovať to kopírovacie makro? Nevyjadril ste sa k zoznamu tých týždňov.

PS: Tie nové údaje v stĺpci C v zdrojovom liste/súbore List2, sú imaginárne a to sme si mali domyslieť ?

???
Prvý list sa volá List2. Šmarjá prečo?

Takže nejde o čísla, ako ste spomínal, ale o text. V tom prípade asi potrebuje Vlastný formát
General;General;;@

=INDEX(List2!A:A;ROW())
=INDEX(List2!A:A;ŘÁDEK())
Aby sa 0 nezobrazovali, stačí Vlastný formát
General;;;
Skúste to na tom SQL.

Takto ?

Dobré skratky.
Škoda že na ne onedlho zabudnem , ale aj to, že odstránenie nefunguje ak sú za Tabuľkou ešte neTabuľkové data. Ak ide o čisto Tabuľku, tak Odstrániť - Stĺpce tabuľky, ak ide o čisto neTabuľkové stĺpce tak Odstrániť - Celý stĺpec. Ale ak sa prelínajú typy stĺpcov, možnosť je nedostupná. Ale super ShortCut...

Ctrl+Shift+p.šípka ide po najbližšiu vyplnenú hodnotu alebo po koniec (Tabuľky či listu), tak je potrebné skúsiť, čo je posledná vyplnená hodnota a čo je už koniec (Tabuľky či listu).

EDIT:
Tak z oblasti následne urobiť celé stĺpce cez Ctrl+Medzera a potom pklik na ušká stĺpcov a Odstrániť. Vtedy nevadí Tabuľka/neTabuľka :)

Skúste vľavo hore do názvu bunky napísať X:XFD, označia sa Vám, potom kliknite pravý klik na názvy stĺpcov a vyberte Odstrániť. Nepoznám klávesovú skratku na výber od X po koniec v riadku. Iba ak Ctrl+End, ale to Vás hodí iba na koniec riadku, tak musíte aj tak myšou potom ísť na stĺpec X. Možno niekto pozná skratku. Ak to potrebujete urobiť na X súboroch, tak na to môžeme urobiť makro.

Pretože ste urobil Tabuľku na celú šírku Excelu - 16384 stĺpcov. Nechal som Vám 20.

OT:
@Stalker: To je pre mňa v skutku parádna zaujímavosť. O tom som netušil. Ten názov "historie" nedovolí na základe lokalizácie (v SK nedovolí "história"). Čo sa stane ak súbor vytvorený v SK s listom "historie" otvoríte v CZ Exceli???

Skúšate Vy vôbec tie moje súbory? Veď teraz ste mi poslal ako vzor v souhrn04 to Vaše pôvodné makro, neupravené, nefunkčné...
Tu máte upravené obe verzie aj 03, aj 04 (s výberom len 641* súborov).

V tom prípade máte zlú cestu, alebo tam nie sú súbory "*.xls". Ten riadok zmeňte na
If pj = 0 Then
MsgBox "Žádné soubory v adresáři:" & vbNewLine & Cesta, vbExclamation
Else
wsJmena.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(pj).Value = Application.Transpose(aJmena)
End If

Tá verzia s pomocou ADO, čo som poslal ako poslednú, funguje či nie? Skúšal ste? Je mnohonásobne rýchlejšia ako táto Open. Neporovnateľne. Chcete naozaj použiť túto Open metódu?

Nie do modulu ThisWorkbook, ale do modulu daného listu! Do príspevku s kódom som pridal aj prílohu s popisom kódu.

Čože ??? To je blbina. PQ môže ťahať milióny riadkov. Nemôžete zverejniť tie súbory?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rClickRng As Range, novycmnt As String

Const SLOUPCE_RCLICK_COMMENT As String = "E:F"
Const PREDVOLENY_COMMENT As String = "Nazdar Fero !"

Set rClickRng = Intersect(Range(SLOUPCE_RCLICK_COMMENT), Target)
If Not rClickRng Is Nothing Then
With rClickRng.Cells(1)
If .Comment Is Nothing Then
novycmnt = InputBox("Vlož nový komentář:", , PREDVOLENY_COMMENT)
If Len(novycmnt) <> 0 Then .AddComment (novycmnt)
Else
novycmnt = InputBox("Přepiš původní komentář", , .Comment.Text)
If StrPtr(novycmnt) <> 0 Then
If Len(novycmnt) <> 0 Then
.Comment.Text Text:=novycmnt
Else
.Comment.Delete
End If
End If
End If
End With

Cancel = True
End If
End Sub

EDIT:
Kód sa vkladá do modulu daného listu!
Pridávam aj prílohu s popísaným makrom.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje