[Çözüldü]Otomatik sekme ekleme veya silme

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

[Çözüldü]Otomatik sekme ekleme veya silme

İleti#1)  amb_drivers » 14 Tem 2010 15:17

Arkadaşlar herkese merhaba.
Excel de hazırladığım bir ihale otomasyonu isimli programım var. Programda yaklaşık maliyet sayfalarım malzeme listesi ile orantılı olarak çoğalıp azalabiliyor. Programda liste diye bir sekmem var ve bu sekmede ilgili servislerden gelen malzemelerin listesini tutup, bu listedeki malzeme sayısınca yaklaşık maliyet için sekme açıyorum.
Bu işi belli bir düzene sokmak istiyorum. Yani yeni sekme eklenmesi veya silinmesini listedeki malzemelere bağlamak istiyorum.
Detaylı açıklamayı ekte sunduğum dosyada açıkladım. Yardımlarınıza ve çözüm önerilerinize ihtiyacım var.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
amb_drivers
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Otomatik sekme ekleme veya silme

İleti#2)  Tarkan VURAL » 22 Tem 2010 22:06

Bir module içine ;

Kod: Tümünü seç
Sub aktar()
For a = 3 To Sayfa1.Range("a65536").End(3).Row
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = CStr(Sayfa1.Cells(a, 1).Value)
    .Range("c3").Value = Sayfa1.Cells(a, "b").Value
    .[b22].Value = Sayfa1.Cells(a, "b").Value
    .[y22].Value = Sayfa1.Cells(a, "c").Value
End With
Next a
End Sub


Sayfa1 kod sayfasına;
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 2 Then
Sayfa1.Range("a2:a65536").ClearContents
For i = 3 To Sayfa1.Range("c65536").End(3).Row
Sayfa1.Cells(i, 1).Value = i - 2
Next i
End If
End Sub
yazınız.
Module içindeki makroyu çalıştırmak için Sayfa1 içine bit buton ekleyip makroyu atayınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26642
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Otomatik sekme ekleme veya silme

İleti#3)  amb_drivers » 25 Tem 2010 00:26

Hocam çok teşekkür ederim.
Kullanıcı avatarı
amb_drivers
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: [Çözüldü]Otomatik sekme ekleme veya silme

İleti#4)  amb_drivers » 19 Eyl 2010 18:16

Tarkan hocam yeni konu açmadan, aynı konu başlığı altında değişik düşüncelerle devam etmek etmek istedim.
Yukarıda yazmış olduğunuz kod neticesinde oluşturulan yeni sekmelerdeki bazı sabit değerleri başka bir sayfaya aktarma yapabilirmiyiz. Ekteki dosyada da izah etmeye çalıştım. [uzgun]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
amb_drivers
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe