Sıra numarası verme

[M.ACAR]

İyi geceler Sıra numarası vermek için kullanmış olduğum =EĞER(B4="";"";EĞER(B3<>"";A3+1;"1")) fonksiyon formülünü
Aşağıda yazılı makro kodunun içerisine ilave edebilirim.

Sub Kod()
Dim Sayfa As String
Dim SR As Worksheet: Set SR = Sheets("ARM")

For i = 15 To SR.Cells(Rows.Count, "B").End(3).Row

If UCase(SR.Cells(i, "AL")) <> "X" Then
Sayfa = SR.Cells(i, "B")
If Not SayfaVarMi(Sayfa) Then
MsgBox Sayfa & " Yok", vbCritical
Else

Sayfasonsat = Sheets(Sayfa).Cells(Rows.Count, "B").End(3).Row + 1
If Sayfasonsat < 4 Then
Sayfasonsat = 4
End If

Sheets(Sayfa).Cells(Sayfasonsat, "B") = SR.Cells(i, "B")

If SR.Cells(i, "D") = "" And SR.Cells(i, "E") = "" Then
Sheets(Sayfa).Cells(Sayfasonsat, "C") = ""
Else
Sheets(Sayfa).Cells(Sayfasonsat, "C") = SR.Cells(i, "D") & "x" & SR.Cells(i, "E")
End If
'''
If SR.Cells(i, "F") = "" And SR.Cells(i, "G") = "" Then
Sheets(Sayfa).Cells(Sayfasonsat, "D") = ""
ElseIf SR.Cells(i, "F") <> "" And SR.Cells(i, "G") = "" Then
Sheets(Sayfa).Cells(Sayfasonsat, "D") = SR.Cells(i, "F") & "x" & SR.Cells(i, "E")
Else
Sheets(Sayfa).Cells(Sayfasonsat, "D") = SR.Cells(i, "F") & "x" & SR.Cells(i, "G")
End If
'''
If SR.Cells(i, "H") = "" And SR.Cells(i, "I") = "" Then
Sheets(Sayfa).Cells(Sayfasonsat, "E") = ""
ElseIf SR.Cells(i, "H") <> "" And SR.Cells(i, "I") = "" Then
Sheets(Sayfa).Cells(Sayfasonsat, "E") = SR.Cells(i, "H") & "x" & SR.Cells(i, "E")
Else
Sheets(Sayfa).Cells(Sayfasonsat, "E") = SR.Cells(i, "H") & "x" & SR.Cells(i, "I")
End If
'''
Sheets(Sayfa).Cells(Sayfasonsat, "F") = SR.Cells(i, "J")
Sheets(Sayfa).Cells(Sayfasonsat, "G") = SR.Cells(i, "K")
Sheets(Sayfa).Cells(Sayfasonsat, "H") = SR.Cells(i, "L")
Sayfasonsat = Empty
SR.Cells(i, "AL") = "X"

End If
End If
Next i

MsgBox "B i t t i "

End Sub

Function SayfaVarMi(Sayfa As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

 

[Korhan Ayhan]

Şu satırın Sheets(Sayfa).Cells(Sayfasonsat, "B") = SR.Cells(i, "B") üstüne aşağıdaki satırı ekleyip deneyiniz.

Sheets(Sayfa).Cells(Sayfasonsat, "A") = i - 14