Excel - visual basic - výběr řádku
Napsal: 03 lis 2013, 12:58
Ahoj,
potýkám se z problémem výběru řádku ve visual basicu v Excelu.
Mám list "formular" a list "seznam" s daty. Na listu "formular" kliknu na tlačítlo, zadám číslo, a data z listu "seznam" se překopírují do listu "formular" a vytisknou.
Ovšem funguje mi to jen u řádků, které na listu "seznam" mají v sloupci A jen číslo. Pokud je v slopci A třeba označení 15A, bere mi to data ze řádku, jež má v sloupci A zadáno jen 15. (bez A) Což je špatně.
Jak mám upravit script, aby mi to bralo data i z řádků obsahující ve sloupci A i pismena?
Chybu mám ve scriptu pravděpodobně tady If Val(Kolecko) = Val(Kolecko1) Then
script
místo Val bych tam měl mít asi String, že? ale jak to správně zapsat ???
potýkám se z problémem výběru řádku ve visual basicu v Excelu.
Mám list "formular" a list "seznam" s daty. Na listu "formular" kliknu na tlačítlo, zadám číslo, a data z listu "seznam" se překopírují do listu "formular" a vytisknou.
Ovšem funguje mi to jen u řádků, které na listu "seznam" mají v sloupci A jen číslo. Pokud je v slopci A třeba označení 15A, bere mi to data ze řádku, jež má v sloupci A zadáno jen 15. (bez A) Což je špatně.
Jak mám upravit script, aby mi to bralo data i z řádků obsahující ve sloupci A i pismena?
Chybu mám ve scriptu pravděpodobně tady If Val(Kolecko) = Val(Kolecko1) Then
script
Kód: Vybrat vše
Private Sub CommandButton1_Click()
Sheets("formular").Select
Kolecko = InputBox("zadej označení")
I = 1
Do While True
I = I + 1
Kolecko1 = Sheets("seznam").Range("A" & I)
If Val(Kolecko) = Val(Kolecko1) Then
sn = Sheets("seznam").Range("B" & I)
inv_c = Sheets("seznam").Range("C" & I)
typ = Sheets("seznam").Range("F" & I)
Exit Do
End If
--- tady je výběr formuláře, zatím nepoužívám, následuje pekopírování dat do formuláře ----
--- konec překopírování dat a script pokračuje---
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
místo Val bych tam měl mít asi String, že? ale jak to správně zapsat ???