Práce s daty

[cauli]

Zdravim,
Chci se zeptat, dá se nějak ve VBA udělat aby mi do buňky kde mám nastavené ověření nakopíroval text z jine buňky a pritom tam to oveření s tim seznamem zůstalo? Samozřejmostí je podmínka když ten daný text není ve výběru toho ověření tak ať to tu buňku nechá prázdnou.
Dik za pomoc.

[Reklama]

[mike007]

A je to potřeba dělat pomocí VBA?
Myslím, že bohatě stačí v ověření, v záložce chybové hlášení odškrtnout Zobrazit chybové hlášení po zadání neplatných dat. Potom můžeš do buňky psát i jiné data než je v ověření nastaveno.

Makrem bych do buňky jinou hodnotu zadal například takto :

Kód: Vybrat vše

Sub data()
a = InputBox("zadej data pro buňku A1", "data")
Range("A1") = a
End Sub

Ukázka v příloze.

[cauli]

Ano to vim, chci to z duvodu ze potrebuji do 10 bunek kde je oveření, přes makro vložit data abych to tam nemusel vypisovat ale zustalo to vsechno tak jak je to ted nastavene. Ponevač tech dat je 31x10radku coz pokazde vypisovat je trosku na nic.

[cauli]

Ještě bych měl jeden dotaz, jaky kod se da ve VBA pouzit pro vyber bunky kdyz chci treba o jednu vlevo nabo nehore. zkusil jsem uz vsechno co me napadlo a nemuzu na to prijit jak to udelat. Makro mi vyhledá bunku a tu potrebuju zkopirovat o 1 policko vedle, problem pro me je ze se mi meni pocet dat a netusim jak to udelat.
Dik za pomoc

[cauli]

Tak uz mi to funguje, priste si budu davat vice pozor na tecky mezi prikazy :)