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

Konu: Sıra Numarası Verdirme

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

    Sıra Numarası Verdirme

    Sayfa1 B5 hücresinden başlamak üzere veriler girdikçe A5 hücresinden başlamak üzere artırarak sıra numaraları 1,2,3.... gidecek, Sayfa1 de yeni sıra verirken Sayfa2 deki sıra numaralarının en büyüğüne göre, yani 5 ise 6 .. vs gibi sıralama yapıyor. Benim yapmak istediğim şey sıralamanın Sayfa1 A5 hücresinden başlamasını sağlamak ve sehven de olsa B1 hücresine veri gidiğimde A1 hücresi değişiyor. Bu konuda yardımlarınızı bekliyorum.

    http://www.dosya.tc/server11/3qu7r1/SIRALAMA.rar.html
    Konu ARS80 tarafından (27.01.2018 Saat 16:02 ) değiştirilmiştir.

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Mrb,
    Ekli makroları dener misiniz?
    Sağlıcakla kalın.

    'Sayfa1 kodları

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sira_No_Ver
    End Sub

    'Modüle 1 kodları

    Sub Sira_No_Ver()
    Dim i As Long, No As Long
    For i = 5 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) <> Empty Then
    No = No + 1
    Cells(i, 1) = No
    Else
    Cells(i, 1) = Empty
    End If
    Next
    End Sub
    Konu behcet tarafından (28.01.2018 Saat 15:20 ) değiştirilmiştir.

  3. #3
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    64
    Behçet Bey ilginize teşekkür ederim.

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Mrb sayın ARR80,
    Rica ederim. Faydalı olabildikse ne mutlu
    Yok eğer sayfa2 deki en büyük rakamın üstüne birer ekleyerek Sayfa1 de sno vermek istiyorsanız aşağıdaki makroyu deneyiniz.

    Sub Sira_No_Ver2()
    Dim i As Long, No As Long, bBuyuk2 As Integer
    For i = 5 To Range("B" & Rows.Count).End(xlUp).Row

    bBuyuk2 = WorksheetFunction.Max(Sheets(2).Columns(1))

    If Cells(i, 2) <> Empty Then

    No = No + 1
    Cells(i, 1) = bBuyuk2 + No

    Else

    Cells(i, 1) = Empty

    End If

    Next

    End Sub


    http://www.dosya.tc/server11/8xtxrx/SIRALAMA-2.xls.html

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
  •