Miten saisin tehtyä macron, joka nappia painamalla kysyisi lukua, joka sitten lisääntyisi samaan soluun tai sitten menisi eri eri soluihin joka kerta esim. A1,A2,A3..ja niin edelleen.
luvun lisäys
vento
8787
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 8
Vanhimmat
nappiin koodi
Private Sub CommandButton1_Click()
LisääSoluun
End Sub
eka tapaus:
Sub LisääSoluun()
Dim luku As Double
luku = Application.InputBox("Anna luku", "Luvun syöttö", Type:=1)
ActiveCell = ActiveCell luku
ActiveCell.Select
End Sub
toka tapaus:
Sub LisääSoluun()
Dim luku As Double
luku = Application.InputBox("Anna luku", "Luvun syöttö", Type:=1)
ActiveCell = ActiveCell luku
ActiveCell.Offset(1, 0).Select
End Sub
Loistavaa Kunde, just mitä halusin!!!
Miten saisi vielä määrättyä solun, ettei tarvitse olla aktiivinen?
Sub LisääSoluun()
Dim solu As Range
Dim luku As Double
On Error Resume Next
Set solu = Application.InputBox("Valitse solu", "Solun valinta", Type:=8)
If Not solu Is Nothing Then
Range(solu.Address).Select
Else
MsgBox "peruutit toiminnon"
Exit Sub
End If
luku = Application.InputBox("Anna luku", "Luvun syöttö", Type:=1)
ActiveCell = ActiveCell luku
ActiveCell.Select
End Sub
Hei.
Kiitos jo tästä koodista, siitä oli apua myös minulle varastokirjanpitoon..
Saisiko tähän vielä sellaista että kun lisään luvun kysyy myös päivämäärää ja tallentaa lisäämäni luvun sekä päivämäärän ja tuotteen nimen (joka sijaitsee luvun oikealla puolella olevassa solussa) eri taulukkoon "sheettiin", mutta samaan tiedostoon?
Eli tarkoitus olisi että "taulukkoon1" tallentuisi jokainen lisäämäni luku eri riville, sekä päivämäärä milloin luku on lisätty
Muokkaa tota mun laskukoodia sopivaksi(uupuu kaikki varmistukset, että tarvittavat jutut on syötetty...).
Tässä etuna se, että voit poistella huoletta tietoja "tietokannasta"(älä poista otsikoita) ja silti nimetty alue "tietokanta" päivittyy automaattisesti :-)
nimeä syöttöalue esim. (Taul1) B2:E2= "Syöttö"
soluihin syötetään
C2=päiväys
D2=nimi
E2=kpl
ja nimeä toiseen taulukkoon (Taul2)vastaavasti "Tietokanta" esim A1:D2
otsikot
A1=nro
B1=päiväys
C1=nimi
D1=kpl
tee nappi Taul1 ja liitä siihen allaoleva koodi
Option Explicit
Sub UusiLasku()
Dim Rivi As Long
With Range("Tietokanta") ' itse määritelty alue
Rivi = .Rows.Count 'lasketaan alueen rivien määrä
If Rivi = 1 Then 'jos ei laskuja niin asetetaan ekaksi numeroksi 1
Range("Syöttö").Cells(1, 1).Value = 1 ' tässä voit laittaa laskunumeron alkamaan mistä numerosta vaan
Else ' meillä oli jo laskuja..., joten lisätään 1 viimeiseen arvoon
Range("Syöttö").Cells(1, 1).Value = Range("Tietokanta").Cells(Rivi, 1).Value 1
End If
Rivi = .Rows.Count 1 'lisätään tietokantaan rivi
Range("Syöttö").Copy Destination:=.Cells(Rivi, 1) ' kopioidaan tiedot
.Resize(Rivi).Name = "Tietokanta" ' päivitetään tietokanta lisäyksen jälkeen
End With
Range("Syöttö") = "" 'tyhjennetään syöttöalue
End Sub
Olenko tyhmä vai miksei onnnistu, tulee vain virhe 400, yritin tehdä ohjeittesi mukaan.
Eli tarkoituksenani oli tehdä varastokirjanpitoa johon on ennalta määritelty tuotteiden nimet, kun tavaraa lisätään varastoluku päivittyy ja samoin kun tavaraa myydään.. Tarkoitus olisi että kun lisään tai myyn tavaraa tallentuu tieto muutoksestani eri sheetille josta saisin kk, ja vuosiraportteja tuotteiden myynnistä ja tilauksista sekä nykyisen varastomäärän.. Eli yksinkertaisesti varastokirjanpitoa excelillä...