otomatik sipariş no. yardım ???

[gknhan]

arkadaşlar merhaba

bir sorunum var yardımcı olursanız sevinirim.

excel çalışma kitabı içerisindeki her açtığım sayfaya otomatik olarak sipariş numarası atmasını istiyorum.

örnek sipariş kodum: 1045
bundan sonra açtığım her sayfanın belirttiğim hücreye +1 ekleyip (1046) yazmasını istiyorum. bunu yapabilirmiyim

imdiden teşekkürler

 

[Ömer]

Merhaba,

Sipariş kodunu nereden alacak. Küçük bir örnek çalışma ile detaylı açıklamanızı rica ederim.

 

[gknhan]

aşağıda açtığım sayfaya göre otomatik form numarası yani sipariş numarasını vermesini istiyorum. bunu nasıl yapabilirim

 

[Ömer]

ThisWorkbook sayfasının kod bölümüne kopyalayın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim i As Integer, deg As Double, Dizi()
    
    If Range("C3") <> "" Then Exit Sub
    
    For i = 1 To Sheets.Count
        deg = Sheets(i).Range("C3")
        ReDim Preserve Dizi(0 To i)
        Dizi(i) = deg
    Next i
    
    Range("C3") = Application.Max(Dizi) + 1
    
End Sub

.

 

[gknhan]

ThisWorkbook sayfasının kod bölümüne kopyalayın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim i As Integer, deg As Double, Dizi()
    
    If Range("C3") <> "" Then Exit Sub
    
    For i = 1 To Sheets.Count
        deg = Sheets(i).Range("C3")
        ReDim Preserve Dizi(0 To i)
        Dizi(i) = deg
    Next i
    
    Range("C3") = Application.Max(Dizi) + 1
    
End Sub

.

cevabın için teşekkürler
kardeş bende 2003 tr var tam olarak nereye yerleştirmem lazım.

çalışma kitabımda bazı sayfalara numara atmamasını istiyorum. örnek ilk 5 sayfada değerler olduğu için buraya numara atmasına gerek yok. yardım ederseniz sevinirim

 

[Ömer]

Önce boş bir excel açarak linkteki ilk mesajdaki resimleri uygulayın. Bu işlemi bir kere yapmanız yeterlidir. Dosyayı kapatın. Kaydetmenize gerek yok.

http://www.excel.web.tr/f48/makrolary-etkin-kylmak-guvenlik-duzeyini-du-urmek-t76309.html

Daha sonra kodları uygulamak istediğiniz çalışmayı açın, Alt+F11 yaparak yada araçlar menüsünden makro/visual basic düzenleyicisine girin. Gelen ekranda solda sayfa isimlerini göreceksiniz, buradan "ThisWorkbook" sayfa ismini çift tıklayıp içine girin, açılan boş sayfa bölümüne kodları yapıştırın ve excele dönün. Artık yeni sayfa açtığınızda istediğiniz sayı artışı olacaktır.

Arıca kodlar, değer olan sayfalara numara yazmaz. Olmayanlara yazar.

.

 

[gknhan]

Önce boş bir excel açarak linkteki ilk mesajdaki resimleri uygulayın. Bu işlemi bir kere yapmanız yeterlidir. Dosyayı kapatın. Kaydetmenize gerek yok.

http://www.excel.web.tr/f48/makrolary-etkin-kylmak-guvenlik-duzeyini-du-urmek-t76309.html

Daha sonra kodları uygulamak istediğiniz çalışmayı açın, Alt+F11 yaparak yada araçlar menüsünden makro/visual basic düzenleyicisine girin. Gelen ekranda solda sayfa isimlerini göreceksiniz, buradan "ThisWorkbook" sayfa ismini çift tıklayıp içine girin, açılan boş sayfa bölümüne kodları yapıştırın ve excele dönün. Artık yeni sayfa açtığınızda istediğiniz sayı artışı olacaktır.

Arıca kodlar, değer olan sayfalara numara yazmaz. Olmayanlara yazar.

.

teşekkürler bunu uyguladım fakat. kopyalama yaptığımda çalışmıyor. yani teklif formu olduğu için aynı sayfanın kopyasını alıp düzenleme yapmam lazım. bunu sağlayabilirmiyim

 

[Ömer]

Bu ayrıntıları neden çözümden önce değil de sonra veriyorsunuz. Bu şekilde ikimiz içinde zaman kaybına neden oluyorsunuz.

Yeni örneğinizi ekleyip konuyu detaylı açıklayınız.

.

 

[gknhan]

Bu ayrıntıları neden çözümden önce değil de sonra veriyorsunuz. Bu şekilde ikimiz içinde zaman kaybına neden oluyorsunuz.

Yeni örneğinizi ekleyip konuyu detaylı açıklayınız.

.

kusura bakmayın.
şuan ayrıntılı olarak forma yazım
şimdiden teşekkürler

 

[gknhan]

Bu ayrıntıları neden çözümden önce değil de sonra veriyorsunuz. Bu şekilde ikimiz içinde zaman kaybına neden oluyorsunuz.

Yeni örneğinizi ekleyip konuyu detaylı açıklayınız.

.

kardeş bakabildin mi?
hala çözemedim bunu

 

[Ömer]

Merhaba,

VBA ekranında Insert menüsünden Module ekleyip kodları eklenen modüle yapıştırın ve Alt+F8 enter yada buton ekleyerek çalıştırın.

Sub Sayfa_Ac()
 
    Dim i As Integer, deg As Double, Dizi()
 
    Sheets("YENİ FORM").Copy After:=Worksheets(Worksheets.Count)
 
    For i = 1 To Sheets.Count
        deg = Sheets(i).Range("G8")
        ReDim Preserve Dizi(0 To i)
        Dizi(i) = deg
    Next i
 
    Range("G8") = Application.Max(Dizi) + 1
    Range("G8").Font.Bold = True
 
End Sub

.

 

[gknhan]

Merhaba,

VBA ekranında Insert menüsünden Module ekleyip kodları eklenen modüle yapıştırın ve Alt+F8 enter yada buton ekleyerek çalıştırın.

Sub Sayfa_Ac()
 
    Dim i As Integer, deg As Double, Dizi()
 
    Sheets("YENİ FORM").Copy After:=Worksheets(Worksheets.Count)
 
    For i = 1 To Sheets.Count
        deg = Sheets(i).Range("G8")
        ReDim Preserve Dizi(0 To i)
        Dizi(i) = deg
    Next i
 
    Range("G8") = Application.Max(Dizi) + 1
    Range("G8").Font.Bold = True
 
End Sub

.

kardeş tekrar merhaba
evet söylemiş olduğun işlemleri yaptım fakat hata veriyor şuan.

run-time error'13':
type mismatch

bu hata ekranın hemen altında debug tıkladğımda kodlar çıkıyor ve kodlarda bu yeri 'deg = Sheets(i).Range("G8")' sarı olarak gösteriyor..

bunu nasıl çözebilirim.
he bu arada daha önceki kodları yerleştirmedim

 

[Ömer]

Eklediğiniz dosyadan farklı bir doya formatında denemiş olabilir misiniz. Hata aldığınız dosyayı eklemenizi rica ederim.