sheetslerdeki karışıklığa çözüm aranıyor

[Ercan_ÇELİKOĞLU]

diyelimki sheets1 , sheets2, 9 a kadar değişik isimler var ama birçok isimler diğer sheets lerde de var öyle bişey yapmak istiyorum ki : makroyla bu karışıklığı gidermek ve tüm sheetslerdeki isimleri ve o isimlere ait verileri her sheets de aynı satır ve sütüna denk gelecek bir makro arıyorum örnek key dosyası ektedir acil yardım saygıyla

 

[Ercan_ÇELİKOĞLU]

Sayın online üyelere

Lütfen konuya çözüm saygıyla.......

 

[Ercan_ÇELİKOĞLU]

Tık Tık Kimse Yokmu?

 

[Ercan_ÇELİKOĞLU]

Konu Yİne Heba Oldu

 

[hamitcan]

Her sayfada aynı isimler mevcut mu ? Değilse, bütün isimlerin birarada olduğu bir sayfa düzenleyin.

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla dosyanızı düzenlemeye çalıştım. Umarım faydası olur. İncelermisiniz.

 

[Ercan_ÇELİKOĞLU]

amaç aynı isimler aynı satıra verileri le birlikte

Selamlar,

Anladığım kadarıyla dosyanızı düzenlemeye çalıştım. Umarım faydası olur. İncelermisiniz.

sayın ayhan en güzel siz anlamışsınız ama olay şu mesela tabloları düzenle butonuna bastığımda 87 yılında Cevdet kızılaslan A 54 DE FAKAT 88 DE A 53 E GELİYOR AMAÇ AYNI İSİMLER AYNI SATIRLARA YERLEŞSİN emeğinize sağlık bu mümkünmü?

 

[Ercan_ÇELİKOĞLU]

Sayın Ayhan kORHAN

Sadece sizin örneğinizdeki dosyada o 87 de karışıklık çıktı diğer dosyalarda macro (modüle1) de yazılı olan kodu denedim. hiç bir sorun çıkmadı .
emeğinize ve elinize bilginize sağlık

 

[Korhan Ayhan]

Selamlar,

Elimden geldiğince dosyanızı düzenlemeye çalıştım. Umarım işinize yarar.

Diğer dosyalarınızada benim örnek dosyanıza eklediğim şekilde Sayfa1 adında bir sayfa ekleyip makroyu çalıştırın.

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Elimden geldiğince dosyanızı düzenlemeye çalıştım. Umarım işinize yarar.

Diğer dosyalarınızada benim örnek dosyanıza eklediğim şekilde Sayfa1 adında bir sayfa ekleyip makroyu çalıştırın.

Sayın :

sizi yordum özürdilerim ilk hali daha güzeldi ben bir ara verilen sub sicil kontrol kodunu denedim ve öncelikle sizin belirttiğiniz üzre aynı ama farklı yazılan isimleri düzelttim ve hem sizin ilk verdiğiniz düzenle formülünü ve hemde boş olan yerlere otomatik numara 11111111 gibi atarak denedim aynı olan isimler her yılda aynı sıraya denk geldi anlayamadığım ise numarayı baz alıyorsa hepsi 1111111 olduğu için her yılda 1111111 olanları en sona atması oysaki aynı isimler üstelik düzenli olduğuna göre neden en sona atıyor onu bulamadım ayrıca şu emmiyet örneğini forumdan silmeye çalıştım fakat silmenin yolunu bulamadım ama yinede bana vakit ayırdığınız için size teşekkür ederim. Boşverin ilk çözümler işime yarıyor şimdilik.
Sıralamayı yaptığı yerden sonrasını elle düzeltiyorum başka çare yok çünkü.

 

[hsayar]

11111111 değerini "11111111" çift tırnak içindemi yoksa tırnaksız mı atadınız...
tırnaksız olarak atamanız gerekir.

 

[Ercan_ÇELİKOĞLU]

Sayın sayar

11111111 değerini "11111111" çift tırnak içindemi yoksa tırnaksız mı atadınız...
tırnaksız olarak atamanız gerekir.

Orjinal Kod: Sub sicilkontrol()
On Error Resume Next
For SAYFA = 1 To Sheets.Count
For satır = 10 To Sheets(SAYFA).[C65536].End(3).Row
If Sheets(SAYFA).Cells(satır, 1) = "" Then
Sheets(SAYFA).Cells(satır, 1) = "1111111111"
End If
Next
Next
End Sub
Kullanım şekli?

 

[hsayar]

Düzenlenmiş Kod:

Sub sicilkontrol()
On Error Resume Next
For SAYFA = 1 To Sheets.Count
      For satır = 10 To Sheets(SAYFA).[C65536].End(3).Row
              If Sheets(SAYFA).Cells(satır, 1) = "" Then
                      Sheets(SAYFA).Cells(satır, 1) = 1111111111
              End If
      Next
Next
End Sub

 

[Ercan_ÇELİKOĞLU]

Düzenlenmiş Kod:

Sub sicilkontrol()
On Error Resume Next
For SAYFA = 1 To Sheets.Count
      For satır = 10 To Sheets(SAYFA).[C65536].End(3).Row
              If Sheets(SAYFA).Cells(satır, 1) = "" Then
                      Sheets(SAYFA).Cells(satır, 1) = 1111111111
              End If
      Next
Next
End Sub

Sayın hsayar teşekkürler sizin uyarınızı alınca tırnak işaretini kaldırarak denedim ama yine istediğim sonucu alamadım saygıyla.

 

[Ercan_ÇELİKOĞLU]

Sayın hsayar ve korhan ayhan

değerli üyeler 2 makro kodunu kullanarak gerekli elemeyi yapabiliyorum ancak şimdi asıl sorun burda sub sicil kontrol kodu 111111 değeri atananlar sayfanın en sonunda karışık bir şekilde yer alıyor örnek dosyada isimleri aynı olan ama emekli sicil numarası olmayanlar kalmıştır. şimdi asıl sorun nasıl bir çözüm önerirsiniz saygılarımla. Bazı yıllar boş 1991 den başlıyor.

 

[Ercan_ÇELİKOĞLU]

Konunun kapanmasını talep ediyorum. saygıyla.