MS Excel

Potřeboval bych zjistit adresu označené bunky a posunout se o 6 vpravo a 3 dolu.

PavDD(5.4.2022 13:56)#052499

tak jsem narazil:
v kodu máte :
'/******* Hledám, jestli je vybraná buňka v povoleném rozsahu. Tzn. v tabulce jednotlivých měsíců

Můžete to vysvětlit ?
Já si ty měsíce různě posunul o pár řádků níže, podle jakého klíče to mám upravit v makru ?..které hodnoty ?

bude to tady někde ?
nasobek = -1
For i = 0 To 11
If Not Application.Intersect(Range("C" & radek1 & ":AF" & radek1 + pocetJmen - 1), Range(Selection.Address)) Is Nothing Then
nasobek = i
Exit For
End If
radek1 = radek1 + posun
Next icitovat

Jiří497(5.4.2022 14:22)#052501

JE to na začátku kódu: Sub doplnSmeny()

Dim pojistka As Integer
Dim pocetJmen As Integer, posun As Integer, prvniJmeno As Integer
Dim radek As Long, sloupec As Long, radek1 As Long
Dim denSmeny As Integer
Dim nasobek As Integer
Dim svatky() As Variant

pocetJmen = 8 'počet jmen v tabulce
posun = 11 'velikost tabulky (počet řádků)
prvniJmeno = 11 'číslo řádku, n akterém je první jméno (pozice tabulky)

Jedná se o proměnnou "posun". Určuje jak daleko jsou od sebe tabulky. Tzn. první měsíc (tabulka) je na řádku 10, další měsíc (tabulka) začíná na řádku 25. posun = 15

Proměnná prvniJmeno je v podstatě druhý řádek tabulky. Říká, na kterém řádku začíná seznam zaměstnanců.

Jednotlivé měsíce musí být od sebe vždy stejně "daleko".citovat

PavDD(20.4.2022 7:51)#052551

ok,díky za popis.Pcitovat

Strana: « předchozí 1 2 3 4

Téma: posun a kopie

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje