Tein koodin pätkän, joka vertaa samalla rivillä olevia numeroita yhteen lukuun. Jos jokin luku on yhtä suuri kuin verrattava luku, suorittaa excel tietyn toiminnon.
Nyt kun rivejä exceliin tulee ainakin 30, niin miten saisin kätevästi tämän toiminnon kaikille riveille, niin ettei minun tarvitse kirjoittaa jos-lauseketta joka rivistä erikseen Vba:han?
Vba
taas pulassa
7
466
Vastaukset
hiukan ylimalkainen kyssäri , mutta rivit joilla vastine on saat kätevästi allaolevalla koodilla(vanha postaus tänne ). Siinä sitten vaan tsekkaat rivitiedon ja suoritat tarvittavan makron(ilmeisesti sama kaikilla?)
moduuliin...
Option Explicit
Sub Siirrä()
Dim Löydetty As Range
Dim solu As Range
Dim haku As Variant
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("Sheet1").Activate
haku = 1
Set Löydetty = EtsiJaSiirrä(haku, Rows("1:30"))
For Each solu In Löydetty
'tähän makrotestaus soluosoitteen mukaan(rivi) ...
MsgBox solu.Row
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
With HakuAlue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function- taas pulassa
Sorry, selitin huonosti.
Eli otetaan esimerkki, jossa A1=1, B1=2 ja C1=3.
Jos A1 tai B1 olisi 3, tulisi ruutuun varoitusteksti. Tämän osaan tehdä.
Eli soluja A ja B verrataan aina soluun C, joka rivillä solut A, B ja C saavat eri arvot.
Miten siis saan n. 30:lle riville kopioitua tämän toiminnon? kun ei viitsisi kirjoittaa 30 if lausetta, toisin sanoen 30 makroa. taas pulassa kirjoitti:
Sorry, selitin huonosti.
Eli otetaan esimerkki, jossa A1=1, B1=2 ja C1=3.
Jos A1 tai B1 olisi 3, tulisi ruutuun varoitusteksti. Tämän osaan tehdä.
Eli soluja A ja B verrataan aina soluun C, joka rivillä solut A, B ja C saavat eri arvot.
Miten siis saan n. 30:lle riville kopioitua tämän toiminnon? kun ei viitsisi kirjoittaa 30 if lausetta, toisin sanoen 30 makroa.eli onko tarkoitus tarkistella sarakkeisiin A tai B syötettäviä arvoja ja verrata saman rivin C sarakkeen arvoon ja jos A:han tai B:hen syötettävä arvo on saman rivin C sarakkeen solussa niin varoitus?
Jos näin niin vaihtoehtoja on...
mutta odotellaan tarkennusta ennen kuin vastataan- taas pulassa
kunde kirjoitti:
eli onko tarkoitus tarkistella sarakkeisiin A tai B syötettäviä arvoja ja verrata saman rivin C sarakkeen arvoon ja jos A:han tai B:hen syötettävä arvo on saman rivin C sarakkeen solussa niin varoitus?
Jos näin niin vaihtoehtoja on...
mutta odotellaan tarkennusta ennen kuin vastataanJuurikin tuosta on kysymys. Msgbox hypähtää silmille, jos joku arvoista on sama, mutta miten tämän saa toimimaan rivikohtaisesti, niin ettei minun tarvitse kirjoittaa if-lauseketta joka rivistä erikseen?
taas pulassa kirjoitti:
Juurikin tuosta on kysymys. Msgbox hypähtää silmille, jos joku arvoista on sama, mutta miten tämän saa toimimaan rivikohtaisesti, niin ettei minun tarvitse kirjoittaa if-lauseketta joka rivistä erikseen?
ko. TAULUKON moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
If Target = Target.Offset(0, 2) Then
MsgBox "Arvo ei kelvollinen!", vbInformation
Target = ""
Target.Select
End If
End If
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
If Target = Target.Offset(0, 1) Then
MsgBox "Arvo ei kelvollinen!", vbInformation
Target = ""
Target.Select
End If
End If
End Sub
Keep Excelling
@Kunde- taas pulassa
kunde kirjoitti:
ko. TAULUKON moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
If Target = Target.Offset(0, 2) Then
MsgBox "Arvo ei kelvollinen!", vbInformation
Target = ""
Target.Select
End If
End If
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
If Target = Target.Offset(0, 1) Then
MsgBox "Arvo ei kelvollinen!", vbInformation
Target = ""
Target.Select
End If
End If
End Sub
Keep Excelling
@KundeMitä nuo Offset arvot tarkoittavat? (0,2) ja (0,1)?
taas pulassa kirjoitti:
Mitä nuo Offset arvot tarkoittavat? (0,2) ja (0,1)?
If Target = Target.Offset(0, 2)
eli kun joku solu muuttuu taulukossa(=Target , tossa koodissani) niin aluksi siinä oli testaus onko kyseessä A sarakkeen solu, joka muuttuu ja jos oli, niin sitten verrataan sitä saman rivin C sarakkeen soluun
Target.Offset(0, 2) eli siirtymä 0 =sama rivi ja 2 =2 saraketta oikealle
rivit menee alaspäin ja - ylöspäin vastaavasti sarakkeet oikealle ja -vasemmalle.
elikä koodi aktivoituu kun taulukossa joku arvo muuttuu
ekaksi testataan oliko A sarakkeen solu ja jos oli niin onko arvo sama kuin C sarakkeessa ja jos oli niin ilmoitus
jälkimmäinen osa vastaavasti B sarakkeen soluille
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Arman Alizadin viesti puna-aktivisteille: "Pitäkää lärvinne nytkin kiinni"
Arman Alizad kritisoi vasemmiston kaksinaismoralismia. Iranissa syntynyt suosikkijuontaja Arman Alizad pakeni perheensä4265181Minja Koskela nostanut vasemmistoliiton kannatuksen ennätykseen
Koskela valittiin puolueen johtoon lokakuussa 2024, ja silloin Ylen kysely antoi puolueelle 9,3 prosentin kannatuksen.1613024Antti johtaa Petteriä jo 7,1 prosenttiyksiköllä
Tällä menolla sdp menee kokoomuksesta kierroksella ohi jo tällä vaalikaudella. https://yle.fi/a/74-20213575912589- 431840
- 611839
Hotelli kainuu
Mietityttää, hotelli Kainuussa, se, että asiakkaat voivat valita ketä saa olla ja ketä ei, Illan aikana asiakkaina!501786- 871597
Pitäis vaan lopettaa
Sinun kanssa yhteydenpito. Alkaa vaan haluamaan enemmän ja tuskin lopulta mikään kohtaisi. Ja ikävä vaan kasvaa ja lähei101317Kelekkakisat
Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.41255MTV: Vappu Pimiä lataa yllättävän kommentin Helena Puolakasta: "Eihän Helena Puolakkakaan..."
Miten Vappu Pimiä pärjäsi mielestäsi MasterChef-tuomarina? Pimiä aloitti MasterChef-tuomarina uudessa pestissä. Nyt Pim161229