merhaba arkadaşlar hızlı satış programı yapmak istiyorum.butona bastıkça başka bir sayfadan ürün adı-- ücret-- miktar fiyat kısmını alıp hesaplayıp hücreye toplam olarak yazacak
dim ws as worksheet
set ws=sheets("urun")
dim ara as string
dim urunTablo=ws.Range("A:B")
ara=btnBoya.caption
sayfa1.Range("B22")=urunTablo=uruntablo.find(ara, , ,xlwhole).offset(,0)
sayfa1.Range("C22")=urunTablo=uruntablo.find(ara, , ,xlwhole).offset(,1)
sayfa1.Range("D22")=1
sayfa1.range("E22")=urunTablo.find(ara, , ,xlwhole).offset(,1)
toplam
rows(22).ınsert
set ws=nothing
set urunTablo=nothing
CAPTİON BUTONUN içine yazılan kodlar bu şekilde 52 adet butonum olacak butonlara bastıkça diğer sayfalardan bilgileri alıp hesaplamasını yapacak butonları çoğaltıp içindeki kodları kopyala yapıştır yaparak butonların içine atıyorum ilk iki buton çalışıyor fakat 3. butondan sonra (RUN TİME ERROR 91--OBJECT VARİABLE OR WİTH BLOCK VARİABLE NOT SET) HATASI ALIYORUM yardımcı olur musunuz arkadaşlar....
dim ws as worksheet
set ws=sheets("urun")
dim ara as string
dim urunTablo=ws.Range("A:B")
ara=btnBoya.caption
sayfa1.Range("B22")=urunTablo=uruntablo.find(ara, , ,xlwhole).offset(,0)
sayfa1.Range("C22")=urunTablo=uruntablo.find(ara, , ,xlwhole).offset(,1)
sayfa1.Range("D22")=1
sayfa1.range("E22")=urunTablo.find(ara, , ,xlwhole).offset(,1)
toplam
rows(22).ınsert
set ws=nothing
set urunTablo=nothing
CAPTİON BUTONUN içine yazılan kodlar bu şekilde 52 adet butonum olacak butonlara bastıkça diğer sayfalardan bilgileri alıp hesaplamasını yapacak butonları çoğaltıp içindeki kodları kopyala yapıştır yaparak butonların içine atıyorum ilk iki buton çalışıyor fakat 3. butondan sonra (RUN TİME ERROR 91--OBJECT VARİABLE OR WİTH BLOCK VARİABLE NOT SET) HATASI ALIYORUM yardımcı olur musunuz arkadaşlar....