"set" hata veriyor, arada ki fark nedir?

[irfancantr]

Herkese hayırlı akşamlar diliyorum;

Elimde ki bir dosyayı kendime uyarlamayı denedim fakat tek bir yerde devamlı hata veriyor.

ilk dosyada bulunan bu bölüm benim dosyamda neden hata veriyor acaba?
Olay firmaekle userformunun kaydet kısmında yer alıyor....

Set [B][COLOR="Red"]veri = [/COLOR][/B]Worksheets("Veri")

'yeni müşteri sayfası eklenir
Worksheets.Add

'sayfaya adi kutusunun içeriği verilir.
ActiveSheet.Name = adi.Text

'bütün hücrelerin fontunu 8' düşürür.
Cells.Font.Size = 8

'firma bilgilerinin başlıkları hücrelere yazdırılır.
Range("A1").Value = "Firma Adı:"

Yardımlarınız için şimdiden teşekkürler.

 

[İhsan Tank]

Herkese hayırlı akşamlar diliyorum;

Elimde ki bir dosyayı kendime uyarlamayı denedim fakat tek bir yerde devamlı hata veriyor.

ilk dosyada bulunan bu bölüm benim dosyamda neden hata veriyor acaba?
Olay firmaekle userformunun kaydet kısmında yer alıyor....

Set [B][COLOR="Red"]veri = [/COLOR][/B]Worksheets("Veri")

'yeni müşteri sayfası eklenir
Worksheets.Add

'sayfaya adi kutusunun içeriği verilir.
ActiveSheet.Name = adi.Text

'bütün hücrelerin fontunu 8' düşürür.
Cells.Font.Size = 8

'firma bilgilerinin başlıkları hücrelere yazdırılır.
Range("A1").Value = "Firma Adı:"

Yardımlarınız için şimdiden teşekkürler.

Merhaba
Kod başlığınının altına

Dim i As Integer, veri, tk, giris

Bunu yazın.
Şu Şekilde olmalı

Private Sub Kaydet_Click()
Dim i As Integer, veri, tk, giris
'kodlar

 

[irfancantr]

Teşekkür ederim sayın İhsan Tank

 

[İhsan Tank]

Teşekkür ederim sayın İhsan Tank

Rica ederim
:keyif: