AccessTr.neT

arkadaşlar dün geceden beri bu sorunla cebelleşiyorum, diğer konularım kapanmadı diye de, daha doğrusu cevap da gelmedi diye de yeni konu açmakta çekindim açıkçası. ama artık çok sıktı bu durum beni. outlook bünyesinde kodum var ki buna göre; yeni bir Excel dosyası oluşturup açıyor buraya kadar çalışıyor ama ben açık olan o sayfaya cells(0,0) yöntemiyle değer giremiyorum, çok ilginçtir Range("a1").Value= "deneme" şeklinde veri girişi oluyor ama bana Cells() yöntemi lazım çünkü bir dizideki değerleri aktarmam gerekiyor, neden cells yöntemi ile veri girilemiyor, halbuki üst tarafta obje yaratma ve set etme olaylarını hallettiğim halde... yardımcı olursanız çok ama çok memnun olurum, dünden beridir cebelleşiyorum, araştırmalar yapıyorum yok yok...şimdiden teşekkürler


...buraya kadarki kodlarım iş gördüğünden yazmadım, ne oluyorsa bundan sonraki kısımlarda oluyor,

Dim uygulama As Object
  Dim kitap As Object
  Dim sahife As Object
 
 
  'Dim uygulama As New Excel.Application
  'Dim kitap As Excel.Workbook
  'Dim sahife As Excel.Worksheet
   
   
 
 
  Set uygulama = Excel.Application
  uygulama.Visible = True
 
    Set kitap = uygulama.Workbooks.Add
    kitap.Activate
    Set sahife = kitap.Worksheets(1)
   
   
    Dim varList As Variant
Dim i As Long, j As Long
For i = LBound(dizi, 2) To UBound(dizi, 2)

    For j = LBound(dizi, 1) To UBound(dizi, 1)
    ''''Range("a1") = "slm" ---> bu oluyor ama...
sahife.Cells(j,i)=dizi(j,i) -----> burası olmuyor
    Next j
Next i
 
 
End If

Cells(0,0) değer alamaz çünkü 0. satır/sütun yoktur. o nedenle dizilerin alt sınırının değeri kaç onu kontrol etmek gerekiyor

---

Konularınızı sorular kısmını açmalısınız yoksa gözden kaçma ihtimali olur
Sorunuz Excel sorusu neden onu farklı konular altına açtınız?
Diğer 2 konunuz da farklı konular altına açılmış

(04/06/2022, 16:24)berduş yazdı: [ -> ]Cells(0,0) değer alamaz çünkü 0. satır/sütun yoktur. o nedenle dizilerin alt sınırının değeri kaç onu kontrol etmek gerekiyor

---

Konularınızı sorular kısmını açmalısınız yoksa gözden kaçma ihtimali olur
Sorunuz Excel sorusu neden onu farklı konular altına açtınız?
Diğer 2 konunuz da farklı konular altına açılmış

Tamam berduş hocam bundan sonra o konuya dikkat ederim. Çok teşekkür ediyorum Cells(i+1,j+1) yapınca oldu, çok teşekkür ederim, bu şekilde bizlere faydalı oluyorsunuz ya çok makbule geçiyor, sonuçta işimiz, ekmeğimiz bu, önemsemek zorundayız bu yüzden tekrar çok teşekkür ediyorum, Allah kolaylıklar versin.

Bu arada amacınız tum diziyi Excel sayfasına aktarmaksa bu yontemi kullanmayin

Range("a1").resize(dizi satır sayısı, dizi sütun sayisi)=dizi

yöntemini deneyebilirsiniz

Range("a1").resize(dizi satır sayısı, dizi sütun sayisi)=dizi

kodunu genel olarak aşağıdaki gibi de kullanabilirsiniz
Not: tablette yazdım hatalı yazılmış olabilir

Range("a1").resize( 1-LBound(dizi, 1)+  UBound(dizi, 1), 1-LBound(dizi, 2)+  UBound(dizi, 2)=dizi

tamam çok teşekkürler, bu kodları inceleyip öğreneyim, yalnız berduş hocam bu kodlardan sonra ilgili kişilere mesaj atan bir betiğim var , onu da outlook'un kendi bünyesinde çalıştırıyorum ama outlook bilindiği üzere biraz geç açılıyor ve o kodlar daha erken işlem yapıyor, çok araştırdım da sabit süreli bekletme ifadeleri çok var internette ama onlar işimi görmez, bana "outlooku kontrol et, eğer açık değilse bekle ve açıldığında gönder" şeklindeki bir algoritmayı çalıştıran ifade gerekli , onu nasıl yazabilirim, yardımcı olursanız çok memnun olurum, dilerseniz Excel kısmında açayım konuyu?