taksit sayısına göre senet sayfalarını çoğaltmak ve a

[burhancavus61]

taksit sayısına göre senet sayfalarını çoğaltmak ve azaltmak mümkünmü

 

[bedersu]

Merhaba,

Þu şekilde deneyebilirsiniz;

Sub sayfa()
a = 0
aa = Sheets("SenetBil").Range("D10").Value

For Each senet In Worksheets
If Right(senet.Name, 5) = "Senet" Then
a = a + 1
End If

Next senet

If a = aa Then End
If a < aa Then
Do
a = a + 1

Sheets.Add
ActiveSheet.Name = a & ". Senet"

Loop Until aa = a
End If


If a > aa Then
Do
a = a - 1

Sheets(a + 1 & ". Senet").Delete

Loop Until aa = a
End If

End Sub

 

[yavuz_tekeli_]

mafyaya mı başvursak mesela

Merhaba,

Þu şekilde deneyebilirsiniz;

Sub sayfa()
a = 0
aa = Sheets("SenetBil").Range("D10").Value

For Each senet In Worksheets
If Right(senet.Name, 5) = "Senet" Then
a = a + 1
End If

Next senet

If a = aa Then End
If a < aa Then
Do
a = a + 1

Sheets.Add
ActiveSheet.Name = a & ". Senet"

Loop Until aa = a
End If


If a > aa Then
Do
a = a - 1

Sheets(a + 1 & ". Senet").Delete

Loop Until aa = a
End If

End Sub

Arkadaşlar bir örnek gönderebilirmisniz