Makro Değişken Tanımlama

[arifcetin93]

Arkadaslar Merhaba,
makro konusunda cok amatörce yazdıgım ıcın oncelıkle sorum hakkında kusura bakmayın eger kendımı sacma ıfade edebıldıysem ogrenmek ıstedıgım su

A ve B degerlerimin oldugunu dusunun ben A & B degerı olarak yenı bir sonuc elde edıp bu degerın adı C oldu ben bu C degerını bır yere yazdırmadan etopla duseyara gıbı yerlerde kullanabılmek ıcın bu C degerıne nasıl bı degısken atamalıyım kı e topla yada duseyara yapabileyim cok arastırdım ama bısey bulamadıgım ıcın buraya sormak ıstedım

sımdıden cok tesekkurler herkese

 

[ÖmerFaruk]

Dim C
şeklinde tanımlayabilirsiniz.

Eğer C değişkeninin tipi netse
Dim C as String ' Metinse
Dim C as Integer 'Integer bir sayıysa
Dim C as Double 'Ondalıklı
Dim C as Long '32767 den büyük bir doğal sayı ise
vs vs

 

[arifcetin93]

tesekkur ederım hocam yazmıs oldugum yerde uyarlayacagım hata alır ısem dosya paylasacagım emegınıze saglık

 

[arifcetin93]

hocam merhaba
soylemıs oldugunuz detaylara gore bır degısken atatım ve sonucu bır yere yazdırmadan düseyara fonksiyonunda kullandım fakat atamıs oldugum degısken hata verdı yapmaya calıstıgım siparis gününü bi yere yazmadan ilgili sayfadan bulması ve cari degerine göre ilerleyen yerlerlerde kullanmak ornek dosyayı ekte paylasıyorum

https://s6.dosya.tc/server21/lqw667/ornek.xlsm.html

 

[ÖmerFaruk]

Vlook kullandığınzı satırı alttaki For Next içine aşağıdaki gibi yazın

For i = 2 To Sayfa1.Range("A2").End(xlDown).Row
    Siparis_Günü = Sayfa2.Range("D" & Application.WorksheetFunction.Match(Sayfa1.Cells(i, 1) * 1, Sayfa2.Range("A1:A" & Sayfa2.Range("A1").End(xlDown).Row), 0))
    Sayfa1.Cells(i, 36) = Sayfa1.Cells(i, 23) + Siparis_Günü
Next

 

[arifcetin93]

ömer hocam asagıdaki hatayı verdi

Run-Time Hatası 13

 

[ÖmerFaruk]

Bir önceki mesaı editledim. Tekrar kopyalayıp deneyin.

 

[arifcetin93]

Bir önceki mesaı editledim. Tekrar kopyalayıp deneyin.

tesekkur ederım hocam elınıze saglık