iki tablo arasındaki veri karşılaştırılması

[bekirk1981]

Merhaba;
bir tane tablom var ve burada 2020 tablosunda kullanılan sıra no bir çok satırda kullanılmıştır, kullanılan satırların toplamını ait olan rakamların 2021 tablosundaki verinin karşısına yazdırmak istiyoruz, yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Deneyiniz.

=ETOPLA('2020'!A:A;A2;'2020'!B:B)

 

[bekirk1981]

teşekkürler hocam;
ayrıca birşey danışmak istiyorum sizlere , bir excel tablodam bir sutun içersinde en fazla 72 karakter olmasını istiyorum. bununla ilgili ne yapabilirim ?

 

[Korhan Ayhan]

Sütun ifadesini kullanınca biraz kafam karıştı. Örneklermisiniz.

 

[bekirk1981]

mesala hocam
A - B- C SUTUNLARI VE C STUNUN İÇİNDE SATIRLAR BAZINDA METİNLER VAR, ORADAKİ METİNLERİN 72 KARAKTERİ GEÇMEMESİ İSTENİYOR

 

[Korhan Ayhan]

Verileri elle mi giriyorsunuz?

 

[bekirk1981]

ekte örnek dosyayı gönderdim hocam H ve I sutununda 72 karakteri geçmesi gerekiyor

 

[Korhan Ayhan]

72 karakteri geçen hücreler var. Bu hücrelerde nasıl bir işlem olacak?

 

[bekirk1981]

kesebiliriz hocam, veya kısaltma yapabiliriz , önemli olan o hücreleri 72 satıra düşürmemiz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Left_Trim_Data()
    Dim Rng As Range
    
    Application.ScreenUpdating = False
    
    For Each Rng In Range("H5:I" & Cells(Rows.Count, 8).End(3).Row)
        If Len(Rng.Value) > 72 Then Rng.Value = Left(Rng.Value, 72)
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bekirk1981]

hocam ; e topla verisinde bir problem yaşıyorum , burda yüklenimde kullandığım rakamların 191 de karşısında toplam veri getirmesi gerekiyordu, göndermiş olduğunu formül ise tam tersi gelmiş
yani yüklenimde kullandığım rakamları toplamını 191 tablosuda yazdırmam gerekiyordu

 

[bekirk1981]

Deneyiniz.

Option Explicit

Sub Left_Trim_Data()
    Dim Rng As Range
   
    Application.ScreenUpdating = False
   
    For Each Rng In Range("H5:I" & Cells(Rows.Count, 8).End(3).Row)
        If Len(Rng.Value) > 72 Then Rng.Value = Left(Rng.Value, 72)
    Next
   
    Application.ScreenUpdating = True
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

tamamdır hocam çok teşekkür ederim.