Forum
Bildirimler
Hepsini Temizle
Microsoft Office
4
Yazılar
2
Üyeler
0
Reactions
930
Görüntüleme
Konu başlatıcı
selam
şöyle bir sıkıntım var. excelde bir listem var 45 satır ve 2 sütundan oluşuyor.
A sütunu verileri : 100, 101, 102, 105, 119 vs. şeklinde.
B sütununda ise değişken rakamlar mevcut.
yapmak istediğim ise şu. dikkat ettiyseniz A sütununda 103,104, 106, ......117,118,119 yok.
A sütununun sıralı olabilmesi için bu rakamları otomatik olarak ekletmem gerekiyor. sonradan ekleyecek olduğum bu rakamların B sütununda herhangi bir veri olmayacak. sadece rakam olarak ekletmeliyim.
yardımlarınızı bekliyorum.
Gönderildi : 19/03/2011 14:37
yapmak istediğiniz arada kalan çift sayıları mı ekleme ?
Gönderildi : 19/03/2011 18:00
Konu başlatıcı
çift olması şart değil tek de olabilir.
yapmak istediğim sadece arada kalan tüm sayıları 1000'e kadar eklemek.
Gönderildi : 21/03/2011 17:30
Konu başlatıcı
çözüm : aşağıdaki makroyu kullanarak bu işlemi yapabiliyoruz.
Sub Makro1()
For i = 1 To 65536
If SonYaz = 799 Then Exit For ' A1 de yazacak maximum rakam
Son = Cells(i, 1)
Sonraki = Cells(i + 1, 1)
If Sonraki - Son > 1 Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Son + 1
ElseIf Cells(i, 1) = "" Then
SonYaz = Cells(i - 1, 1) + 1
Cells(i, 1) = SonYaz
End If
Next i
End Sub
Gönderildi : 21/03/2011 20:06
