SAYFAYA KAYDET

[ocamsul]

Merhaba arkadaşlar. ekli çalışma sayfamda bir UserForm var bu form üzerindeki TextBox lara girdiğim bilgilerin sayfada ilgili satırlara alt alta yazılmasını istiyorum, ama kodları bir türlü çözemedim. nerede yanlış yapıyorum. yardım edermisiniz.

 

[danersin]

Bu büyük dosyaları lütfen sıkıştıralım.

 

[isakarakus]

merhaba,
bu tur hatalar bende de oluyor,
BL öncelikle bu sayfasını yeni bir dosyaya kopyalayın.

ayrıca komutlarınızda da hatalar var gördüğüm kadarıyla,

Unload Me
'tamamen gereksiz, form kapanır ve diğer komutlar işletilmez,

sonsat = Sheets("BL").Cells(65536, 3).End(xlUp).Row
'3 ün yerine 5 yazmak gerekli Çünkü e sutununu baz almalı,

Sheets("BL").Cells(sonsat , 6) = TextBox1.Value = 1
Sheets("BL").Cells(sonsat , 5) = TextBox2.Value = 1
' 5 ve altı olmalı, E ve Fsutunu

' DİÐER TEXTBOXLARI BU MANTIKLA DEVAM ETTİRMELİSİNİZ

MsgBox "Kayıt İşlemi Tamamlanmıştır."
Unload Me

 

[isakarakus]

@danersin
Ã?zür dilerim fark etmedim.

 

[isakarakus]

Sevgili @danersin
Dosyada
Can't find project or library
hatası veriyor. daha önce bende de buna benzer ne olduğu belli olmayan hatalar
meydana gelmişti. sayfatyı yeni bir dosyaya kopyalayarak işimi hallettimama,
be hata sizce neden kaynaklanıyor?
nasıl düzeltebiliriz

 

[danersin]

@isakarakus sizinde aynı soruya cevap yazmanızda özür dilenecek hiçbirşey yok, hatta iyi oluyor. Ã?rneğin en üstteki "unload me" yi umursamadım çünkü @ocamsul'un bu örneği daha büyük bir parçadan çıkartıp yolladığını biliyorum bir şekilde unload etmesi gerekebilirmi diye kararsız kaldım, sanırım cant find... hatasınıda burdaki örnek başka bir projeden çıkartılmış olduğu için veriyor.. mantığını bilmiyorum ama @ocamsul'un gönderdiği daha önceki örnek dosyalarda bende yaşadım aynı sorunu..

 

[isakarakus]

teşekkürler.