• DİKKAT

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

Sıfırdan Temiz & İşlevsel Bir Excel Projesi Hazırlıyorum!

Katılım
12 Şubat 2019
Mesajlar
56
Excel Vers. ve Dili
2016 Türkçe
(Ünlemi pek kaideye almayın)

Sıfırdan işlevsel bir excel sayfası açacağım, burada bir kaç gündür takılıyorum ama gerçekten çok geliştim diyebilirim o zaman bir süre daha buradayım ve bu süre uzayabilir. (Konuya geçiyorum).

Excel çok gelişmiş; bir sayfa hazırlıyorsun ve gerisini kendi eklediğiniz işlevler ile devam ediyor ekledikçe daha iyi çalışır vaziyette oluyor.

(Anlamadıysanız Direkt Resime Bakın)
Şu şekilde başlayacağım iki Excel sayfası hazırlayacağım biri yönetici sayfası diğeri ise müşteri sayfası ve yönetici sayfasına ulaşılabilir bir yere bir buton ekleyeceğim o butona şu ismi vereceğim firma ekle, tıklandığında ise boş bir kutu çıkacak ve üstünde firma adı ve firma yöneticisi yazacak bunu yazdıktan sonra eğer ki firma yok ise direkt olarak hazırladığım yönetici olmayan sayfayı kopyalayacak ve firmanın adını verecek ve ona ayrıca bağlantı ekleyecek sonra yönetici sayfasında ekli olan bir firmanın karşısına değer gir diye bir buton ekleyeceğim ve değerleri gireceğim şekilde liste hazırlayacağım ve o listede ürünler olacak o ürünleri seçip ekle dediğimde firmanın kendi sayfasına eklenecek.

Şimdi sorularım şu şekilde komik gelmesin lütfen çok ciddi bir çalışmanın içine gireceğim:
Soru 1) Ben kodları nerede yazacağım
Soru 2) Hangi dilde yazmam gerekiyor
Soru 3) Sayfa kopyalama gibi işlevleri nereden ulaşabilrim nereden öğrenebilirim.
Soru 4) Önerdiğiniz bir çalışma yöntemi var mı sorularım haricinde her hangi bir öneri bir ışık.

Screenshot_14.png
 
Son düzenleme:
Yazdıklarınızdan anladığım kadarıyla önce temel düzeyde Visual Basic öğrenmeniz gerekiyor. Yardım alamadığınız zaman projeniz çöp olmasın.
 
Yazdıklarınızdan anladığım kadarıyla önce temel düzeyde Visual Basic öğrenmeniz gerekiyor. Yardım alamadığınız zaman projeniz çöp olmasın.

Ne yapmamı öneriyorsunuz?

Bir soru daha sormak istiyorum: Visual Studio 2017 indirmemi önerir misiniz? Son olarak ben bir çok olayı çözdüm şimdiden? Aklıma takılan soru visual studio 2017 indirsem sorun olur mu? 2010 şart mı?

Şart değilmiş hatta visual studio kurmak bile şart değilmiş artık başlıyabilirim.
 
Son düzenleme:
Sayfaları otomatik kopyalamak için aşağıdaki yöntemleri izleyebilirsiniz.

Excel - Geliştiri sekmesinden Visual Basic bölümüne girin. Daha sonra sol üsttekki menüden modül ekle diyerek aşağıdaki kodları açılan bölüme yapıştırın. Daha sonra "kopyanacak sayfa adı" kısımları kısmına kopyalamak istediğiniz sayfanın ismini yazın.

Kod:
Sub Kopyala()
Sheets("KOPYANACAK SAYFA ADI").Visible = True
Sheets("KOPYANACAK SAYFA ADI").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
End Sub
 
Şöyle bir hata alıyorum End İf Eksik. (COMPİLE ERROR BLOCK İF WİTHOUT END İF)

Sorun üstün zekamla çözülmüştür çözümü kodda belirtiliyorum. End if ekledim else'nin altına.


Kod:
Dim SonSatir As Variant

Dim SonSatir As Variant

Private Sub CommandButton1_Click()


SonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("A:A")) + 1
MsgBox SonSatir

    If SonSatir = 5 Then
   
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = YoneticiAdiYaz.Value
       
   
    Else
   
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = Worksheets("Elektrikçiler").Cells(SonSatir - 1, 1) + 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = YoneticiAdiYaz.Value
       
    End If
   

End Sub

Private Sub FirmaAdi_Click()

End Sub

Private Sub Label1_Click()

End Sub
 
Son düzenleme:
Bu değer doğrumu? 2 tane yapmak istiyorum bundan... If IsNumeric(BirimMiktariYaz.Value And BirimFiyatiYaz.Value) Then
 
Sayfaları otomatik kopyalamak için aşağıdaki yöntemleri izleyebilirsiniz.

Excel - Geliştiri sekmesinden Visual Basic bölümüne girin. Daha sonra sol üsttekki menüden modül ekle diyerek aşağıdaki kodları açılan bölüme yapıştırın. Daha sonra "kopyanacak sayfa adı" kısımları kısmına kopyalamak istediğiniz sayfanın ismini yazın.

Kod:
Sub Kopyala()
Sheets("KOPYANACAK SAYFA ADI").Visible = True
Sheets("KOPYANACAK SAYFA ADI").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
End Sub

Teşekkür ederim hocam.
 
Geri
Üst