Excel i VBA znowu :)
user: "Tomasz Krolik"
Witam Po moich poszukiwaniach w plikach pomocy w koncu postanowilem zwrocic sie z moim pytaniem na grupe. Zalozmy ze przygotowuje formularz gdzie w okreslone komorki bede wpisywal imie, nazwisko, itd i chce stworzyc makro podpiete bod button tak azeby dane z tych dwoch pol powiedzmy A2 i B2 trafily do sasiedniego arkusza (mojej bazy danych) na pierwsze wolne miejsce i tu sie pojawia dla mnie problem jak sprawdzic adres pierwszej wolnej komorki w konkretniej kolumnie ? bo chce zalozmy pobrana dana wpisac w pierwsza wolna komorke no i obok kolejna dana pozdrawiam i mam nadzieje ze wyrazilem sie jasno
Re: Excel i VBA znowu :)
user: "Tomasz Krolik"
juz sobie poradzilem w ten sposob np. Set c = Arkusz2.Range("a1:a500").Find("") If c Is Nothing Then MsgBox ("Nie znaleziono") Linia = c.Row c.Value = Linia pozdrawiam Tomek
Re: Excel i VBA znowu :)
user: "pxd74"
Użytkownik "Tomasz Krolik" napisał w wiadomości news:45a935c9$1@news.home.net.pl... > Witam > Po moich poszukiwaniach w plikach pomocy w koncu > postanowilem zwrocic sie z moim pytaniem na grupe. > Zalozmy ze przygotowuje formularz gdzie w okreslone > komorki bede wpisywal imie, nazwisko, itd > i chce stworzyc makro podpiete bod button > tak azeby dane z tych dwoch pol powiedzmy A2 i B2 > trafily do sasiedniego arkusza (mojej bazy danych) na pierwsze wolne > miejsce i tu sie pojawia dla mnie problem > jak sprawdzic adres pierwszej wolnej komorki w konkretniej kolumnie ? > bo chce zalozmy pobrana dana wpisac w pierwsza wolna komorke no i obok > kolejna dana Najbardziej popularny sposób to trzeci spośród wymienionych w tym FAQ-u korzystający z właściwości End: http://excel.republika.pl/faq.htm#wolny -- Pozdrowienia pxd74
Re: Excel i VBA znowu :)
user: "Tomasz Krolik"
dziekuje za podopowiedz faktycznie te formuly takze dzialaja bezblednie a moze i jeszcze lepiej od tej ktora sam wymyslilem pozdrawiam Tomek
Re: Excel i VBA znowu :)
user: "Sławcio.xww"
"Tomasz Krolik" wrote in message news:45a9e720@news.home.net.pl... > dziekuje za podopowiedz > faktycznie te formuly takze dzialaja > bezblednie a moze i jeszcze lepiej od > tej ktora sam wymyslilem A mozna jeszcze tak: Set bl = Worksheets("MojaBaza") w_bl = bl.Cells(65536, 1).End(xlUp).Row + 1 Cells(w_bl, wiersz).Select '...i dalej wklejasz S!@w.
Re: Excel i VBA znowu :)
user: "pxd74"
Użytkownik "Sławcio.xww" napisał w wiadomości news:eogrf0$qop$1@inews.gazeta.pl... > Set bl = Worksheets("MojaBaza") > w_bl = bl.Cells(65536, 1).End(xlUp).Row + 1 > Cells(w_bl, wiersz).Select > '...i dalej wklejasz No, ale jesteś niekonsekwetny. Raz używasz obiektu rodzica (zmiennej obiektowej bl), a raz nie. Pamiętaj, że jeśli kod będzie znajdować w module innego arkusza albo arkusz "MojaBaza" nie aktywnym arkuszem, to kod będzie działał błędnie. -- Pozdrowienia pxd74