Doplneni hodnoty do bunky Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Doplneni hodnoty do bunky

Příspěvekod luko02420 » 02 úno 2019 16:57

Dobrý večer, potřeboval bych poradit. Do bunky I3 nacitám hodnoty z jineho listu. Potrebuji aby se hodnota z I3 prenesla automaticky do A3 stejneho listu. Ale tak aby v A3 nebyl vzorec jenom hodnota z I3. Nevím jak toho docilit. Melo by to fungovat pro cely sloupec I. Vzdy hodnota v I a prenos do A.
Děkuji za pomoc.



Reklama
karlos64
nováček
Příspěvky: 11
Registrován: červenec 18
Pohlaví: Muž

Re: Doplneni hodnoty do bunky

Příspěvekod karlos64 » 02 úno 2019 21:25

Dobrý den.
Není to stoprocentně automatické, ale je možné použít kopírování makrem spouštěné přes nějaké tlačítko. Bylo by to rychlé.

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Doplneni hodnoty do bunky

Příspěvekod luko02420 » 03 úno 2019 09:49

Dobrý den, tak jsem našel kod od uzivatele "Cmuch".
Funguje skvěle, takže snad to tvurci nebude vadit když ho tu dám.
Mám tam akorát vypnuté řazení.
Snad se bude někomu hodit.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Oblast As Range
Dim puvodnivyber As Variant

'definice sledované oblasti
Set Oblast = Range("A5:A1000")
   'test výběru
  If Union(Oblast, Target).Address = Oblast.Address Then
   
    Application.ScreenUpdating = False 'zakazani updatovani stranky
    puvodnivyber = Target.Address      'zaznamenani posledni vybrane bunky
    ActiveWindow.FreezePanes = False   'vypnuti ukotveni pricky

    Range("A5:A1000").Copy
    Sheets("Souhrn").Range("A3:A1000").PasteSpecial
    Application.CutCopyMode = False
   
    'With Sheets("Souhrn")
        '.Range("A3:A1000").RemoveDuplicates Columns:=1, Header:=xlNo
        '.Sort.SortFields.Clear
        '.Sort.SortFields.Add Key:= _
                    'Range("A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         ' With .Sort
             '.SetRange Range("A3:A1000")
             '.Header = xlNo
             '.MatchCase = False
             '.Orientation = xlTopToBottom
             '.SortMethod = xlPinYin
             '.Apply
          'End With
    'End With
   
    Rows("5:5").Select               'vybrani radku od ktereho bude fungovat ukotveni pricky
    ActiveWindow.FreezePanes = True    'zapnuti ukotveni pricky
    Range(puvodnivyber).Select         'navrat na posledni vybranou bunku
    Application.ScreenUpdating = True  'zapnuti updatovani stranky
  End If
End Sub

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 170
Registrován: červen 13
Pohlaví: Muž

Re: Doplneni hodnoty do bunky

Příspěvekod elninoslov » 03 úno 2019 15:00

Tento kód má ale nevýhodu v tom, že označuje oblasti a kopíruje ich, čo je pomalé. Ďalej nefunguje, ak zmena oblasti je viacstĺpcová (typicky mazanie). Tu je jednoduchší kód, ale pre oba platí, že treba dať pozor, ako vzniká hodnota v sledovanej zdrojovej oblasti. Či napísaním, alebo výpočtom. Treba sledovať zmenu v takej oblasti, ktorá má priamy vplyv od užívateľa na kopírované hodnoty. Inak by bolo potrebné kopírovať celú vyplnenú časť pri každom Calculate. Lebo vzorec nevyvolá Worksheet_Change. Iba užívateľ.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast As Range, Area As Range
   
    Set Oblast = Intersect(Range("G:G"), Target)    'definice změnené oblasti. Tu je lepšie kontrolovať iba rozumnú oblasť, napr. G1:G1000.
    If Not Oblast Is Nothing Then                   'test výběru
        Application.ScreenUpdating = False          'zakazani updatovani stranky
        For Each Area In Oblast.Areas               'projít všechny změnené podoblasti
            With Area
                wsCiel.Cells(.Row, 1).Resize(.Cells.Count).Value = .Value   'Přenesení hodnoty
            End With
        Next Area
        Application.ScreenUpdating = True           'zapnuti updatovani stranky
    End If
End Sub

Príklad:
Nemáte oprávnění prohlížet přiložené soubory.

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Doplneni hodnoty do bunky  Vyřešeno

Příspěvekod luko02420 » 03 úno 2019 16:49

Dobrý den, zkusím toto bylo jedine co jsem nasel. Zapis do sledované oblasti se provadí rucne zapisem.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Měnící se hodnota buňky vstupní buňky
    od martin.11 » 30 led 2019 10:43 » v Kancelářské balíky
    4
    323
    od MePExG
    30 led 2019 15:31
  • ACCESS automatické doplnění
    od franet » 07 zář 2018 10:13 » v Kancelářské balíky
    0
    601
    od franet
    07 zář 2018 10:13
  • Doplnění grafické karty do PC
    od nostallon » 26 led 2019 10:18 » v Rady s výběrem hardwaru a sestavením PC
    20
    543
    od nostallon
    28 led 2019 16:31
  • Doplnění příkazu pro pravé tlačítko myši
    od VOM » 29 bře 2018 14:19 » v Kancelářské balíky
    0
    493
    od VOM
    29 bře 2018 14:19
  • Excel_vyhledávání největší a nejmenší hodnoty
    od regpp » 21 úno 2018 09:55 » v Kancelářské balíky
    17
    1259
    od MePExG
    01 bře 2018 20:12

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 6 hostů