Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Formularze - Skopiowany tekst nie działa

wybierztabele 18 Wrz 2015 04:27 612 8
  • #1 18 Wrz 2015 04:27
    wybierztabele
    Poziom 5  

    Witam,

    Uczę się formularzy wg filmiku na YT "Advanced useform"
    ok: 21:38min

    Autor podał kod na wstawianie danych przez formularz do tabeli. Który zmieniłam na własne piwne potrzeby :D

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Przepisałam kod toćkę w toćkę, również sprawdziłam są te same nazwy pól zdeklarowane. VB debuguje mi błąd w linijce którego nie rozumiem.
    Code:
    ActiveCell.End(x1Down).Select


    nr błędu: 10004 tekst błędu: Aplication-defined or object-defined error

    PS: czy znacie szanowni Państwo kanał youtubera, który hmm..mówi płynniej i angielszczyzną amerykańską lub brytyjską. Ten akcent hinduski jest bardzo męczący.

    0 8
  • Pomocny post
    #2 18 Wrz 2015 06:29
    JRV
    Specjalista - VBA, Excel

    xlDown nie x1Down

    0
  • #3 18 Wrz 2015 13:38
    wybierztabele
    Poziom 5  

    No tak czeski błąd dziękuję. A mógłby Pan jeszcze sprawdzić bo ten sam błąd wyrzuca mi przy

    Kod: csharp
    Zaloguj się, aby zobaczyć kod


    i podejrzewam że niższych też

    0
  • Pomocny post
    #4 18 Wrz 2015 16:43
    JRV
    Specjalista - VBA, Excel

    wybierztabele napisał:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Nie ma nic podejrzanego. Musisz dołączyć plik.

    0
  • #5 18 Wrz 2015 19:06
    wybierztabele
    Poziom 5  

    JRV napisał:
    wybierztabele napisał:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Nie ma nic podejrzanego. Musisz dołączyć plik.


    właśnie plik jest, czyli Textbox o nazwie Piwo (txtPiwo). Wcześniej ćwiczyłam na kodzie
    Code:
    Private Sub cmdSend_Click()
    
    Range("A2").Value = txtPiwo.Text
    Range("B2").Value = txtBrowar.Text
    Range("C2").Value = txtRodzaj.Text
    Range("D2").Value = txtSmak.Text
    Range("E2").Value = txtBarwa.Text
    Range("F2").Value = txtEkstrakt.Text
    Range("G2").Value = txtInne.Text
    End Sub


    I bez problemu rozpoznał mi ten textbox

    VBA Formularze - Skopiowany tekst nie działa

    0
  • Pomocny post
    #6 18 Wrz 2015 19:39
    JRV
    Specjalista - VBA, Excel

    Wtedy zmien

    Code:
    lastrow = ActiveCell.Row
    
    na
    Code:
    lastrow = cells(rows.count,1).End(xlUp).Row


    Dodano po 2 [minuty]:

    To nie trzeba -
    Code:
    ActiveCell.End(x1Down).Select
    

    0
  • #7 18 Wrz 2015 19:52
    wybierztabele
    Poziom 5  

    Dziękuję pomógł mi Pan. Czy mógłby mi Pan jeszcze wytłumaczyć czemu VBA nie odszukało mojego pliku? Mimo że zrobiłam identycznie wg wskazówek? Czy po prostu VBA tak ma :-)

    0
  • #8 18 Wrz 2015 19:57
    JRV
    Specjalista - VBA, Excel

    Po prostu baza byla pusta. Od A2 xlDown stalo na ostatniem wiersze. Nie istnieje wiersza ostatny+1. Od ostatniego xlUp bedzie tam gdzie trzeba.

    PS
    Recznie to jest Ctrl+ strzalka w dol i Ctrl+ strzalka w gore

    0
  • #9 18 Wrz 2015 20:40
    wybierztabele
    Poziom 5  

    Dziękuję, zrozumiałam. Teraz widzę różnicę na tym co jest na filmiku i z tym co zrobiłam. Podejrzewałam ze o to chodzi. :D

    0