Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Wyszukaj w ofercie 200 tys. produktów TME
Kategoria: Kamery IP / Alarmy / Automatyka Bram
Montersi
Proszę, dodaj wyjątek elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Jak przerobić makro by wyszukiwało wartości z konkretnej kol

krzysiek_78 16 Gru 2010 07:51 690 6
  • #1 16 Gru 2010 07:51
    krzysiek_78
    Poziom 10  

    Witam ponownie.
    Jak przerobić makro by wyszukiwało wartości Z podanego Arkusza, ale tylko z jednej konkretnej kolumny np B

  • Pomocny post
    #2 16 Gru 2010 14:43
    adamas_nt
    Moderator Programowanie

    W linii 21

    Code:
    Set kom = wksN.Columns(2).Find(What:=szk, LookAt:=xlWhole)

    Jeśli prawdziwe jest
    Code:
    If kom Is Nothing
    wychodzisz z procedury bez zerowania zmiennych obiektowych (które sobie będą siedzieć w pamięci). Unikniesz tego stosując Else...
    Code:
        If kom Is Nothing Then
    
            MsgBox "Nie ma podanej komórki."
        Else
          On Error GoTo 0
          wksR.Range("C1:D1").Copy
          kom.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
          Application.CutCopyMode = False 'coby kreskowanie zniknęło
        End If

    Jeszcze sprawa wielkości liter... Może
    Code:
    szk = UCase(.Range("B1"))

  • #3 17 Gru 2010 06:05
    krzysiek_78
    Poziom 10  

    :| hmmm coś niechce działać po wprowadzeniu zmian :|

  • Pomocny post
    #4 17 Gru 2010 09:40
    walek33
    Poziom 28  

    Cytat:
    hmmm coś niechce działać po wprowadzeniu zmian

    Hmmm, coś myślę, że zmiany źle wprowadzone. :D
    Kod kolegi adamas_nt działa. Wrzuć plik po zmianach.

  • #5 17 Gru 2010 10:58
    krzysiek_78
    Poziom 10  

    Faktycznie mój błąd, funkcja naturalnie działa mały błąd w kopiowaniu
    Wielkie dzięki :)

  • #6 17 Gru 2010 11:15
    walek33
    Poziom 28  

    Nie chcę być uznany za wrednego, choć tak jest, ale...

    Cytat:
    naturalnie dział mały błąd w kopiiowaniu
    Wialkie dzięki

    ...jeżeli kopiujesz tak jak piszesz to musisz po prostu bardziej się starać. :D

  • #7 17 Gru 2010 12:29
    krzysiek_78
    Poziom 10  

    Hehehe no dobre, tak się czasami dzieje jak robi się wszystko w pośpiechu. Postaram się bardziej następnym razem - szybkie spojrzenie na tekst… gra ;)

 
Promocja -20%
Zamknij 
Wyszukaj w ofercie 200 tys. produktów TME
tme