alt alta verilere değer girme

[sunkid]

Merhaba arkadaşlar. Şöyle bir problemim var A sütununda siciller var hemen karşısındaki sutuna 1 yazdırmak istiyorum ama esas sıkıntı aynı sicilden A sütununda birden fazla olabilir ozaman karşısındaki sütuna 2 varsa 3 varsa 4yazmasını istiyorum.

Örnek olarak;

A Sütunu B Sütunu
Sicil NO
77800 1
77800 2
77801 1
77802 1
77802 2
77802 3

 

[catalinastrap]

peki bu numaralar bu şekilde sıralımı dosyanızda

 

[apocalyt]

b3 hücresine kopalayıp aşağıya çekin..

=EĞERSAY($B$3:B3;A3)

 

[sunkid]

peki bu numaralar bu şekilde sıralımı dosyanızda

sicil numaraları A kolonunda farklı hücerelerde A12 77802 A50 77802 olabiilr..

 

[Ziynettin]

Merhaba,
Aşağıdaki kodu denemisiniz.

Sub no_ver()
Dim i, j As Integer
Range("B:B").ClearContents
For i = 2 To Range("A" & Rows.Count).End(3).Row
If Cells(i, 2) = "" Then
For j = 2 To Cells(i, 2).Row
If Cells(j, 1) = Cells(i, 2).Offset(0, -1) Then
Cells(i, 2) = Cells(i, 2) + Cells(i, 1).Count
End If
Next j
End If
Next i
End Sub

 

[apocalyt]

dün mesaj atmıştım..formülü yanlış yazmışım...şunu b2 hücresine kopyalayıp aşağıya doğru çekin..

=EĞERSAY($A$2:A2;A2)

 

[sunkid]

Merhaba,
Aşağıdaki kodu denemisiniz.

Sub no_ver()
Dim i, j As Integer
Range("B:B").ClearContents
For i = 2 To Range("A" & Rows.Count).End(3).Row
If Cells(i, 2) = "" Then
For j = 2 To Cells(i, 2).Row
If Cells(j, 1) = Cells(i, 2).Offset(0, -1) Then
Cells(i, 2) = Cells(i, 2) + Cells(i, 1).Count
End If
Next j
End If
Next i
End Sub

hocam eline sağlık takır takır çalıştı makro çok ama çok teşekkür ederim..

 

[sunkid]

dün mesaj atmıştım..formülü yanlış yazmışım...şunu b2 hücresine kopyalayıp aşağıya doğru çekin..

=EĞERSAY($A$2:A2;A2)

hocam formülü yapıştıryorum ama kaçtane olursa olsun 1 yazıyor hücreye

 

[apocalyt]

hocam formülü b2 hücresine kopyalayın..daha sonra sağ alt köşesinden çekerek diğer hücrelere kopyalayın..doru sonucu vericektir..arkadaşımız makro çözüm yapmış..buda alternatif olsun artık ..

 

[sunkid]

hocam formülü b2 hücresine kopyalayın..daha sonra sağ alt köşesinden çekerek diğer hücrelere kopyalayın..doru sonucu vericektir..arkadaşımız makro çözüm yapmış..buda alternatif olsun artık ..

dostum uğraştığın için çok saol evet makro işimi gördü ama senin yazdığın formülü girince olmuyor ekte örnek dosya gönderdim. tekrar teşekkürler

 

[apocalyt]

formülü yanlış yere kopyalayıp aşağıya çekmişssin..ben düzelttim..bir bakın..