tüm sheetslerde A10;A65536 boşhücreler dolsun

[Ercan_ÇELİKOĞLU]

Şimdi aşağıdaki kod : sheets1 den 9 a kadar çok güzel çalışıyor
ancak sheets 1 ve diğer sheetslerdeki boş olan a10 İle a65536 hücreleri yok sayıyor benim istediğim şu sheets1 den 9 a kadar aşağıdaki koda nasıl bir ekleme yapılırsa sheets 1 sheets2 ve 9 a kadar A10 ile a65536 daki boş hücrelere örnek : "bunusonrasil" bu kelimeyle o boşlar ama sadece boşlar dolsun ve sonra isimleri dizsin otomatik olarak?
ayrıca konunun ilk hali :
http://www.excel.web.tr/showthread.php?t=45810 linkindedir ordaki örnek dosyaya bakarsanız sorunu anlarsınız.

Sub DÜZENLE()
Sheets("Sayfa1").Select
Cells.Delete
[A1] = "SANDIK SİCİL NO"
[B1] = "ADI"
[C1] = "SOYADI"
SATIR = 2

On Error Resume Next
For SAYFA = 3 To Sheets.Count
Sheets(SAYFA).Range("A9:A65536").SpecialCells(xlCe llTypeBlanks).EntireRow.Delete
If Sheets(SAYFA).[A10] <> "" Then
SON_SATIR = Sheets(SAYFA).[A65536].End(3).Row
Sheets(SAYFA).Range("A10:C" & SON_SATIR).Copy Cells(SATIR, 1)
SATIR = [A65536].End(3).Row + 1
End If
Next

[A2:C65536].Sort Key1:=Range("B2"), Order1:=xlAscending
[A:C].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True
Range("E2") = 1
Range("E3") = 2
Range("E2:E3").AutoFill Destination:=Range("E2:E" & [F65536].End(3).Row)
Cells.EntireColumn.AutoFit

For X = 2 To [F65536].End(3).Row
For SAYFA = 3 To Sheets.Count
Set BUL = Sheets(SAYFA).[A:A].Find(Cells(X, "F"))
If Not BUL Is Nothing Then
ADRES = BUL.Address
Sheets(SAYFA).Cells(BUL.Row, "R") = Cells(X, "E")
Do
Set BUL = Sheets(SAYFA).[A:A].FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
Next
Next

For SAYFA = 3 To Sheets.Count
Sheets(SAYFA).[A10:R65536].Sort Key1:=Sheets(SAYFA).[R10], Order1:=xlAscending
Next

For SAYFA = 3 To Sheets.Count
Sheets(SAYFA).Select
If [R65536].End(3).Value < Sheets("Sayfa1").[E65536].End(3).Value Then
For X = 1 To (Sheets("Sayfa1").[E65536].End(3).Value - [R65536].End(3).Value)
Cells([R65536].End(3).Row + 1, "R") = [R65536].End(3).Value + 1
Next
End If
For X = [R65536].End(3).Row To 10 Step -1
KONTROL = Cells(X, "R") - Cells(X - 1, "R")
If KONTROL <> 1 Then
Rows(X & ":" & X + KONTROL - 2).Insert
End If
Next
With Range("A10:Q259")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Interior.Pattern = xlNone
End With
Next
MsgBox "VERİLERİNİZ DÜZENLENMİŞTİR.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Verilerinizde tutars&#305;zl&#305;klar s&#246;zkonusu. Mesela sayfalardan isimleri tek sayfaya aktard&#305;&#287;&#305;m&#305;zda a&#351;a&#287;&#305;daki farkl&#305;l&#305;klar ortaya &#231;&#305;k&#305;yor. Excel bunlardan hangisinin do&#287;ru oldu&#287;unu nas&#305;l anlayacak. &#304;simlerdeki bu farkl&#305;l&#305;klar&#305; ortadan kald&#305;r&#305;rsan&#305;z &#231;&#246;z&#252;me ula&#351;mak kolayla&#351;&#305;r. Diyebilirsinizki S&#304;C&#304;L NO dan &#231;&#246;z&#252;me ula&#351;al&#305;m. Zaten kendiniz belirtmi&#351;siniz baz&#305; ki&#351;ilerin sicil nolar&#305; yok ve bu ki&#351;iler farkl&#305; ki&#351;iler.

Sonu&#231; olarak verilerinizi en az&#305;ndan isim olarak d&#252;zenlemeniz gerekmektedir.

59353044 TUGRUL &#199;ARKA
59353044 TU&#286;RUL &#199;ANKA
59353044 TU&#286;RUL &#199;ARKA

 

[ftekin]

Hocam merhaba,

Pek u&#287;ra&#351;acak zaman&#305;m yoktu ama EK olarak koydu&#287;un dosyay&#305; g&#246;r&#252;nce dayanamad&#305;m.Zira emniyetin i&#351;i.

Sorunun cevab&#305; olarak ("Sadece sicil no'su bo&#351; olanlar&#305;n yerine sabit veri yazd&#305;rmak istemi&#351;sin") a&#351;a&#287;&#305;daki kod t&#252;m sayfalardaki Em.Sic.No alan&#305; bo&#351; olanlar&#305;n yerine 1111111111 yaz&#305;yor.Sen kendine uyarlars&#305;n art&#305;k.

Ama i&#231;imi s&#305;zlatan bir&#351;ey var kafama &#231;ok tak&#305;ld&#305; s&#246;ylemeden ge&#231;emeyece&#287;im.

A&#287;r&#305; b&#246;lgesindeki emniyet mensuplar&#305;n&#305;n TC Kimlik No'lar&#305;yla birlikte isim ve emekli sicil no'lar&#305;n&#305; if&#351;a etmeye hakk&#305;n varm&#305;? Bu do&#287;ru mu?

Bunu pekala &#252;f&#252;r&#252;kten verilerle de yapabilirdin.

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

 

[Ercan_ÇELİKOĞLU]

Art niyetim yoktu

Hocam merhaba,

Pek uğraşacak zamanım yoktu ama EK olarak koyduğun dosyayı görünce dayanamadım.Zira emniyetin işi.

Sorunun cevabı olarak ("Sadece sicil no'su boş olanların yerine sabit veri yazdırmak istemişsin") aşağıdaki kod tüm sayfalardaki Em.Sic.No alanı boş olanların yerine 1111111111 yazıyor.Sen kendine uyarlarsın artık.

Ama içimi sızlatan birşey var kafama çok takıldı söylemeden geçemeyeceğim.

Ağrı bölgesindeki emniyet mensuplarının TC Kimlik No'larıyla birlikte isim ve emekli sicil no'larını ifşa etmeye hakkın varmı? Bu doğru mu?

Bunu pekala üfürükten verilerle de yapabilirdin.

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

herhangi bir kötü niyetim yok ama siz beni yanlış anladıysanız bilemem.
sadece o anda o dosya elimdeydi bunun gibi 50 dosya daha elimde mevcut.

 

[Ercan_ÇELİKOĞLU]

İSiMLERİ DİZMİYORKİ

sub sicil kontrol makrosu isimleri sayfanın en sonuna sıralamadan atıyor net bir çözüm yolu yokmu

 

[Ercan_ÇELİKOĞLU]

siz örnek dosyaya bakarak karar veriyorsunuz

Selamlar,

Verilerinizde tutarsızlıklar sözkonusu. Mesela sayfalardan isimleri tek sayfaya aktardığımızda aşağıdaki farklılıklar ortaya çıkıyor. Excel bunlardan hangisinin doğru olduğunu nasıl anlayacak. İsimlerdeki bu farklılıkları ortadan kaldırırsanız çözüme ulaşmak kolaylaşır. Diyebilirsinizki SİCİL NO dan çözüme ulaşalım. Zaten kendiniz belirtmişsiniz bazı kişilerin sicil noları yok ve bu kişiler farklı kişiler.

Sonuç olarak verilerinizi en azından isim olarak düzenlemeniz gerekmektedir.

59353044 TUGRUL ÇARKA
59353044 TUĞRUL ÇANKA
59353044 TUĞRUL ÇARKA

bu sadece bir örnekti tüm dosyalarda aynı hatalar yokki isimlerin düzgün girildiği dosyalarda var o zaman kodda hangi değişiklik olursa çözüm buluruz?