• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan oerbas
  • Başlangıç tarihi Başlangıç tarihi
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
 
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.
 
Yardımlarınızdan dolayı teşekkür ederim. Hayırlı çalışmalar
 
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
 
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...)
 
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
 
Geri
Üst