sıra no

[tkcargo]

=EĞER(B5="";"";ALTTOPLAM(103;$B$5:B5))
arkadaslar yukarıdaki formulde hucre bossa sıra numarası vermiyo buna birde deger sıfır ise yani hucrede sıfır yazıyosa yine sıra numarası vermemesini ekleyebilirmiyiz

 

[accountant80]

Merhaba Şu şekilde deneyiniz.

=EĞER(YADA(B5="";B5=0);"";ALTTOPLAM(103;$B$5:B5))

 

[tkcargo]

Merhaba Şu şekilde deneyiniz.

=EĞER(YADA(B5="";B5=0);"";ALTTOPLAM(103;$B$5:B5))

tamda bu tesekkur ederim

 

[accountant80]

Rica ederim iyi çalışmalar

 

[tkcargo]

tamda bu tesekkur ederim

yanlıs gormusum bu seferde 0 yazınca numarayı gostermiyo ama atlamada yapmıyo
dosya ekte acıklama mevcut

 

[tkcargo]

cozebilen varmı

 

[accountant80]

Maalesef ben 2003 kullandığım için dosyayı açamıyorum.

 

[Ömer]

Merhaba,

A5:

=EĞER(YADA(B5=0;B5="");"";MAK($A$4:A4)+1)

.

 

[Necdet]

Merhaba,

Can sıkıntısından biraz beyin jimnastiği yapayım dedim.

Dosyanızdaki Teslim sayfasını yeniden düzenledim Teslim_Necdet adıyla.

İlgili sayfadaki kodlar aşağıdadır.

Sayfada herhangi bir hücreye çift tıkladığınızda istediğiniz kadar satır çoğaltılır.

Temizleme ve numaralandırma butonları koydum.

sayfa başlığını tekrarlamadım bunun yerine yazdırırken tekrarlamasını istedim.

İnceleyiniz.

Private Sub CommandButton1_Click()
    Dim i As Long
    Application.ScreenUpdating = False
    Range("A3:D6").ClearContents
    i = Cells(Rows.Count, "E").End(3).Row
    If i > 6 Then Rows("7:" & i).Delete
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
    
    Dim i   As Long, _
        No  As Integer
    
    For i = 3 To Cells(Rows.Count, "E").End(3).Row - 3 Step 4
        If Not Cells(i, "B") = "" And Not Cells(i, "B") = 0 Then
            No = No + 1
            Cells(i, "A") = No
        End If
    Next i
    
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Long
    Dim j As Integer
    Dim k As Integer
    
    j = Application.InputBox("KAÇ SATIR KOPYA ÇIKARTMAK İSTİYORSUNUZ?", "SATIR KOPYALAMA", 1, Type:=1)
    If j = 0 Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Do While k < j
        i = Cells(Rows.Count, "E").End(3).Row + 1
        Rows("3:6").Select
        Selection.Copy
        Rows(i & ":" & i).Select
        Selection.Insert Shift:=xlDown
        Range("A" & i & ":D" & i + 3).ClearContents
        Application.CutCopyMode = False
        k = k + 1
    Loop
    
    Application.ScreenUpdating = True
    
End Sub

 

[tkcargo]

Merhaba,

A5:

=EĞER(YADA(B5=0;B5="");"";MAK($A$4:A4)+1)

.

ömer bey simdi oldu tesekkurler

 

[tkcargo]

necdet bey yardımlarınız icin tesekkurler omer beyin formulu daha cok isime yaradı

 

[Necdet]

necdet bey yardımlarınız icin tesekkurler omer beyin formulu daha cok isime yaradı

Ömer beyin formülü mutlaka işinize yarar da, ben farklı bir yöntem sunmak istedim.

 

[tkcargo]

necdet bey peki data2 deki veri kadar teslim de sayfa olusturabiliyomuyuz yani cıktı alırken bos sayfaları almasın diye kopyalaya bastıgımda kac tane varsa o kadar sayfa olussun ornegin bugun elimdeki veri 150 tane yarın 180 tane olabilir falan 1 sayfada 10 veri oluyor