Soru alt toplam çalışmıyor

[gazolay]

GALİBA YAPTIM AMA ŞÖYLE BİR SORUN VAR
BEN BİLGİLERİ ÇEKTİĞİM YERLERİ SONRA SİLİYORUM ÇÜNKÜ LAZIM DEĞİL DAHA
SONRASINDA DÜZELTTİĞİM YERLERDE HATA VERİYOR

 

[Ömer]

Merhaba,

Mesajların tamamına bakamadım. Son mesajınıza göre;

Dosyanıza yeni bir sayfa açın adına "ornek" deyin. Siz sayfa adını farklı yapabilirsiniz eğer farklı bir sayfa adı tanımlarsanız kodlardaki "ornek" yazan bölümü tanımladığınız sayfa adıyla değiştirirsiniz.
Yeni oluşturduğunuz sayfadaki başlıkları siz kendinize göre düzenlersiniz düşüncesiyle kodun içine ilave etmedim.
Veriler 3. satırdan başlayarak yazılır. Bu doğrultuda başlıkları 2.satıra yazabilir, yada kodlardaki 3 ü değiştirip başlık satırını kendinize göre ayarlayabilirsiniz.

Sub duzenle()

    Dim St As Worksheet, So As Worksheet, i As Long, sat As Long

    Set St = Sheets("Table 1")
    Set So = Sheets("ornek") 'yeni olusturduğunuz sayfa adı
  
    Application.ScreenUpdating = False
    So.Range("A3:H" & Rows.Count).ClearContents
  
    sat = 3 'verilerin yazılmaya başlayacağı satır
    For i = 13 To St.Cells(Rows.Count, "A").End(xlUp).Row Step 2
        So.Cells(sat, "A") = St.Cells(i, "A")
        So.Cells(sat, "B") = St.Cells(i, "C")
        So.Cells(sat, "C") = Trim(WorksheetFunction. _
            Substitute(St.Cells(i + 1, "C"), "AYLIK", ""))
        So.Cells(sat, "D") = St.Cells(i, "F")
        So.Cells(sat, "E") = St.Cells(i + 1, "F")
        So.Cells(sat, "F") = St.Cells(i, "P")
        So.Cells(sat, "G") = St.Cells(i + 1, "Y")
        So.Cells(sat, "H") = St.Cells(i + 1, "Z")
        sat = sat + 1
    Next i
  
    So.Select
    So.Cells.EntireColumn.AutoFit
  
End Sub

 

[gazolay]

böyle yapacağına beim size attığımı yağın tekrar bana atın...ben bunları yapamıyorum zor iş

 

[gazolay]

EXELDE ŞÖYLE BİR İŞLEYİŞ VARMI
1--MUSTAFA KAZANCI TEK HÜCREDE YAZIYOR...BEN KAZANCIYI ORADAN ALACAĞIM DİĞER HÜCREYE KOYACAĞIM
GERİDE KALAN MUSTAFA KAZANCI BOZULMAYACAK
İBANLARI PARÇA AL İLE ALIYORUM ORADA 26 HANE SIRALI
SORACAKSIN BURADA NEYİ BAZ ALACAĞIZ İSİM VE SOY İSİM ARASINDAKİ BOŞLUĞU BAZ ALACAKSINIZ MESELA
2--BANA GELEN BORDODA PERSONELİN TC İSMİ BES SSK GİRİŞ ÇIKIŞ NET ÖDENEN ALIYORUZ EXELE ATIYORUZ
AMA BU PERSONELE BEN KİM BUNUN TAŞERONU BUNUN İBANI NEDİR BİLGİLERİ YOK
BEN SGK EXEL DOSYAMDA BU BİLGİLER VAR
ŞİMDİ BURATA DİKKAT LÜTFEN BEN SAÇMALARSAM SİZ TOPLAYIN...AKLIMA ŞÖYLE BİR ŞEY GELİYOR AMA EXELDE BU VARMI
2 EXELİ DÜŞÜN BİRİNDE DİĞERİNE LAZIM GELEN BİLGİLER VAR TC NUMARASINI BAZ ALIP İÇİNDE İBAN VE TAŞERONU ÇEKEBİLİRMİ VARMI BÖYLR BİR DÜNYA..
YOKSA ŞÖYLE YAPIYORUM TC KOPYALIYORUM DİĞERİNDE ARATIYORUM BULUNCA KOPYALIYORUM YAPIŞTIRIYORUM
1 İŞLEV 2 DK SÜRÜYOR 500 PERSONEL 2 DK DAN 10 SAAT SÜRÜYOR

 

[gazolay]

İBANA RENK KOYDUKYA BU RENK DAHA ÇALIŞMIYOR

 

[gazolay]

EXELDE BİR HÜCREYE TARİH YAZDIM O HÜCRE BİR GÜN SONRA TARİHİ GÜNCELLESİN İSTİYORUM..
ÖRNEK: PUANTÖRE HER GÜN TAŞERON LİSTESİ VERİYORUM 20 ADET HER GÜN SAHAYA ÇIKIYOR AMA TARİHLERİ KENDİ ATIYOR BUNU EXEL OTOMATİK YAPABİLİRMİ
BEN DİYELİM YARINI BUGÜNDEN VERİYORUM ONA GÖRE BİR FORMÜL VARMI

 

[gazolay]

FİLTLEME YAPINCA TOPLAM VE ALTTOPLAM ARALARA KARIŞIYOR NEDEN

 

[sesar]

FİLTLEME YAPINCA TOPLAM VE ALTTOPLAM ARALARA KARIŞIYOR NEDEN

Bu gibi durumların önüne geçmek için alttoplamı en üste yerleştirebilirsiniz.

Ayrıca aralara karışsa bile o satır için kes-yapıştır diyerek istediğiniz yere de yerleştirebilirsiniz.

 

[gazolay]

İNAN BANA ÖYLE YAPTIM AMA BURA HACKER DOLU BELKİ BİRİ BANA NEDEN BÖYLE OLDUĞUNU SÖYLER