• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

C

cemosal

Katılım
5 Temmuz 2006
Mesajlar
93
Excel Vers. ve Dili
2007-tr
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.
 

Ekli dosyalar

Son düzenleme:
Dosyayı ekleyemediniz herhalde, dosyayı eklerseniz yardımcı olmaya çalışalım.
 
dosyayı eklemiştim öncede fakat ofisin yeni versiyonunu excel in son şeklini eklelememiş.o yüzden eski versiyona çevirip tabloyu tazeledim.
 
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?
 
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
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
 
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.
 
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.
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
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.
Genişletmek için tıkla ...
önceki versiyon excelde araçları hatırlıyorum ama bu yenisinde bulamadım araçları...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst