Pasifize olan Excel Çalışma kitabının aktifleştirilmes

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Arşiv bilgilerinin olduğu bir Excel kitaplığım var. Nası oldu bilemiyorum ama çalışma kitabını açtığım halde sayfalara ulaşamıyorum.sonki Excel dosyası açılmamış gibi oluyor tekrar açmaya çalıştığım zaman böyle bir dosyanın zaten açık olduğu mesajıyla karşılaşıyorum. Yardımcı olursanız sevinirim
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Dosyayı 1 kere açtıktan sonra Alt + F11 tuşlarına basarak VBE kısmına geçin.

Sol tarafta ThisWorkbook modulünde aşağıdaki resimde görülen IsAddin kısmını eğer True ise False olarak değiştirin.
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Yardımlarınızdan dolayı teşekkür ederim. Hayırlı çalışmalar
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
TextBoxlardaki bilgilerin çalışma sayfasına kayd edilmes

Verdiğiniz cevap için teşşekkür ederim. Bir hususta daha yardımlarınıza ihtiyacım olacak

6 Adet TextBox1 var bu TextBox lara girilen bilgiler Stok Giriş Sayfasının

A3 hücresinden başlayarak satırlar halinde kayıt yapılacak. Bir sonraki kayıt boş olan en son satıra kaydedilmek suretiyle bir kayıt düğmesi oluşturmak istiyorum yardımcı olursanız çok sevinirim
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Re: TextBoxlardaki bilgilerin çalışma sayfasına kayd edi

oerbas' Alıntı:
Verdiğiniz cevap için teşşekkür ederim. Bir hususta daha yardımlarınıza ihtiyacım olacak
......
Yeni bir soru için, yeni bir başlık açılması daha iyi olucaktır. (Arama Motorunda benzer bir cevap bulunamazsa tabii...)
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
size iki ayrı seçenek öneriyorum

örnek1:
Sub Makro1()
Range("A2").Select
10 ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
b = ActiveCell.Value
satirno = ActiveCell.Row
If b <> "" Then
GoTo 10
End If
Cells(satirno, 1) = Textbox1.Value
End Sub

örnek2:
Sub Makro2()
For a = 3 To 1000
b = Cells(a, 1).Value
If b = "" Then
Cells(a, 1) = Textbox1.Value
GoTo 10
End If
Next a
10 End Sub

selamlar
 
Üst