İyi geceler değerli hocalarım,

Yapmaya çalıştığım programda "alternatifleri sırala" butonuna bastığımda bir formül çalıştırmak istiyorum. Fakat tuşa bastığımda bir hata veriyor ve ben bu hatanın neden kaynaklandığını anlayamıyorum.

Kod yazmaktan anlamadığım için formülün kodları çok fazla oldu.
Eminim bir döngü yapısıyla çok daha az satır aynı işi görürdü.
Acaba hatanın sebebi fazla kodlar mı?

Bu konuda bana yardımcı olabilirseniz çok sevinirim.

Sn arkadaşlar merhaba; Bu forumdan indirdiğim yedekleme programı ile çıkışta başka bir klasöre üzerine yedekleme yaptırıyorum. İki programda gayet güzel çalışıyor. Bir programda out of string space hatası verdi ve yedekleme yapmadı. Ne yapmam lazım ? Program büyük olduğu için eklemedim. Saygılar...

iyi günler
kod yazmayı bilmeden çok zor oluyor
şimdide bu hatayı veriyor
resileri ekledim
hangi durumlarda bu hata veriyor
yardımlarınız için teşekkürler

Merhaba arkadaşlar, burada dikkatimi çeken bir konu, arkadaşlar sorularının cevabının sitede olup olmadığına bakmadan, aramadan, araştırmadan sormakta ve maalesef bilgi kirliliği eyivallah ama hocalarımızında meşgulüyeti doğmaktadır.

Ayrıca; Örnek uygulamalarda farklı ve öğretici anlamında yeni örnekler sunulması kullanıcıların ihtiyacına cevap verecektir. Uygulamanın ve Örneğin sitemizde olup olmadığına bakılmaksızın eklenecek aynı tür örnekler takdir edilmeli ki fayda sağlamaya

Arkadaşlar AÇILAN KUTU ekledim çalışırken birden bu hatayı vermeye başladı. Aslında hiç bir şey yapmadım. Nasıl oldu bende anlamadım. Eğer yardım ederseniz çok sevinirim.
Yazdığım Programı aşağıya ekledim. İlginize Şimdiden teşekkürler. İyi çalışmalar...

Arkadaşlar veritabanını bölerken Subscript out of range hatası alıyorum...

Bu hatayı ne sebep olabilir yada daha önce bu hatayla karşılaşan varmı ?

Merhaba arkadaşlar Sql bağlantımı uzaktan stastik ip ile bağlanıyorum tüm ayarları yapmışım. Evden bilgisayarla stastik ip ile bağlandığım zaman bu resimdeki hatanı alıyorum. Nerde yalnış yaptım acaba? Yardımcı olursanız sevinirim.. Sayqılar...
https://resim.accesstr.net/do.php?img=9130

[vb]Sub aktar()
'Tbas = Now
Dim rg As Range
Dim son, sonstn, zSon, SonSatir As Long
Dim dizi As Variant
Dim puDizi As Variant
Dim iSonSutun As Integer


iSonSutun = Sayfa1.Cells(4, Columns.Count).End(xlToLeft).Column

Dim isim As String, aktif As Boolean
son = Sayfa1.Cells(Rows.Count, 4).End(xlUp).Row
'MsgBox iSonSutun
Set rg = Sayfa1.Range("4:" & iSonSutun & son)
dizi = rg
With Application
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents =