boş hücrelere seçerek toplamları almak...

[cemosal]

muhasebe proğramında aldığım bir tablo raporunda raporlar tam liste gelmiyor.
excel e atarak boş hücreleri doldurmak istiyorum.
bunuda cari kod sütununda kodlardaki boş olma sayısına göre atamasını istiyorum.
örnek tabloda aldığım tablo ve olmasını istediğim şekil var.
teşekkürler.

 

[janveljan]

Dosyayı ekleyemediniz herhalde, dosyayı eklerseniz yardımcı olmaya çalışalım.

 

[cemosal]

dosyayı eklemiştim öncede fakat ofisin yeni versiyonunu excel in son şeklini eklelememiş.o yüzden eski versiyona çevirip tabloyu tazeledim.

 

[cemosal]

s.o.s.
s.o.s.

 

[S.Yiğit]

Valla ben bişi anlamadım tablodan.. 11 görüntüleme var diğer arkadaşlarda anlamamış sanırım..
Biraz daha açıklayıcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim ADET As Byte
    Dim X As Long, SATIR As Long
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    ADET = Application.InputBox("Lütfen boşluk sayısı giriniz !", "BOŞLUK SAYISI", 0)
    If ADET > 5 Then
    MsgBox "Lütfen uygun boşluk sayısı giriniz !", vbCritical, "DİKKAT !"
    Exit Sub
    End If
    S2.[A2:B65536].ClearContents
    SATIR = 2
    For X = 3 To S1.[A65536].End(3).Row
        If (Len(S1.Cells(X, 1)) - Len(Replace(S1.Cells(X, 1), " ", ""))) = ADET Then
        S2.Cells(SATIR, 1) = S1.Cells(X, 1)
        S2.Cells(SATIR, 2) = S1.Cells(X, 2)
        SATIR = SATIR + 1
        End If
    Next
    S2.[A:B].EntireColumn.AutoFit
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cemosal]

sayın korhan ayhan
ben türkçe excel kullandığım için sizden gelen cevabı anlamadım.
cevabı türkçeleştirme imkanınınz var mı ?
teşekkürler.

 

[cemosal]

tablonun daha net anlaşılması için araya bi sütun ilave ettim.

 

[Korhan Ayhan]

Selamlar,

Cevabımda kod kullandım. ALT+F11 tuşlarına basın karşınıza kod editörü açılacaktır. Insert menüsünden Module seçeneğini seçip boş bir Module ekleyin. Açılan beyaz renkli sayfaya verdiğim kodu uygulayın. Daha sonra excel sayfanıza dönün ve ALT+F8 tuşlarına basın uygulamış olduğunuz makronun adını seçip çalıştır deyin. Makroyu çalıştırdığınızda size kaç boşluklu listeleme yapmak istediğiniz sorulacak vereceğiniz cevaba göre listeleme Sayfa2 ye yapılacaktır.

Not: Makroları çalıştırabilmeniz için ARAÇLAR-MAKRO-GÜVENLİK menüsünden ORTA seçeneğini seçip tamam demelisiniz. Dosyayı açarken size makroları etkinleştirmek istiyormusunuz diye soru sorulacak. MAKROLARI ETKİNLEŞTİR seçeneğini seçtiğinizde kodu çalıştırabilirsiniz.

Eğer ben bunları uygulayamam derseniz ekteki örnek dosyayı kullanabilirsiniz.

 

[cemosal]

Selamlar,

Cevabımda kod kullandım. ALT+F11 tuşlarına basın karşınıza kod editörü açılacaktır. Insert menüsünden Module seçeneğini seçip boş bir Module ekleyin. Açılan beyaz renkli sayfaya verdiğim kodu uygulayın. Daha sonra excel sayfanıza dönün ve ALT+F8 tuşlarına basın uygulamış olduğunuz makronun adını seçip çalıştır deyin. Makroyu çalıştırdığınızda size kaç boşluklu listeleme yapmak istediğiniz sorulacak vereceğiniz cevaba göre listeleme Sayfa2 ye yapılacaktır.

Not: Makroları çalıştırabilmeniz için ARAÇLAR-MAKRO-GÜVENLİK menüsünden ORTA seçeneğini seçip tamam demelisiniz. Dosyayı açarken size makroları etkinleştirmek istiyormusunuz diye soru sorulacak. MAKROLARI ETKİNLEŞTİR seçeneğini seçtiğinizde kodu çalıştırabilirsiniz.

Eğer ben bunları uygulayamam derseniz ekteki örnek dosyayı kullanabilirsiniz.

önceki versiyon excelde araçları hatırlıyorum ama bu yenisinde bulamadım araçları...

 

[Korhan Ayhan]

Selamlar,

Office 2007 ile ilgili yardım konularına aşağıdaki linkten ulaşabilirsiniz.

http://office.microsoft.com/tr-tr/excel/default.aspx


Makrolar için aşağıdaki linki inceleyiniz.

http://office.microsoft.com/tr-tr/excel/HA100310711055.aspx