Toplam 6 sonuçtan 1 ile 6 arasındakiler gösteriliyor.

Konu: Satır Ekleme

  1. #1
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    66

    Satır Ekleme

    Arkadaşlar EK' teki çalışmada VERİTABANI sayfasındaki B5 hücresinden başlamak üzere veriler girdikçe A5 hücresinden başlamak üzere sicil numaraları veren ve değişik kodlara dokunmadan, yapmak istediğim şey şu örnekte olduğu en son dolu hücre olan B15 hücresine veri girildiğinde 16 satırın eklenmesini sağlamak hususunda yardımlarınızı rica ediyorum.

    http://s7.dosya.tc/server3/82ewl8/Kitap_1.rar.html

  2. #2
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    66
    Arkadaşlar yardımlarınızı rica ediyorum.

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Sep 2013
    Nereden
    İstanbul
    Versiyon
    Ofis-2010 Türkçe
    Mesajlar
    521
    Sayın ARS80
    Dosyanıza baktım istediğiniz şey ancak WBA kodu ile mümkün. Forumda bir kod bulup dosyanıza uyarladım. Ancak dosyanızda Kayıt sil adlı makro da problem var gibi. Ben kod lardan anlamam ancak bulduğum kod bir satır ekleme yapıyor. Aşağıda ki dosyanın VERİ TABANI (2) sayfasına buton ekledim ona bastığınız zaman size satır ekleyecektir. Yalnız dediğim gibi Kayıt sil makrosu tetiklenecek ve yönergelere göre hareket ederek Tamam deyin.
    Birde şunu söylemek istiyorum. Sayfanızdaki boş satır ve sütunları neden gizlediniz ki onlar görünüyor olsalar da siz B sütununa veri girdik te A sütununa sıra No. veriyor zaten değil mi?

    http://s7.dosya.tc/server3/gjexvb/Kitap_2.rar.html

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    107
    Merhaba arkadaşım kolay gelsin
    Dosyanda arıza var şöyleki sayfa aktive olunca DV! hücresine bakıp bir mesaj verecek ama DV1 hücresi #DEĞER şeklinde olduğu için makro direkt arıza veriyor bence aktive olma olayını kaldırman lazım yoksa makrolar sürekli arıza verecek

  5. #5
    Kıdemli Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    107
    Private Sub Workbook_Activate()
    If Range("DV1").Value > 0 Then

    msj = Range("DV1") & " ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR"
    MsgBox msj
    End If
    End Sub

    bu makroyu yukarıdaki gibi değiştirin yoksa sürekli arıza alırsınız

  6. #6
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    66
    Arkadaşlar yardımlarınızı bekliyorum.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •