• DİKKAT

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

veri yoksa hücreleri birleştirsin ile ilgili sorum

D

drummers

Katılım
13 Kasım 2007
Mesajlar
309
Excel Vers. ve Dili
2007
ekteki dosyaya istinaden "vergi levhası" sekmesindeki bilgiler "data" sekmesinden alınmaktadır.

sorum şudur

eğer 2009 veya 2008 veya 2007 yıllarında matrah ve tahhakkuk eden vergi sütünlarında rakam yoksa veya "0" ise

"beyan olunan matrah" hücresi ile "tahakkuk eden vergi " hücrelerini birleştirsin birleştirilmiş hücre içine " MATRAH BEYAN EDİLMEMİŞTİR" yazsın

bunu nasıl yapacağım konusunda yardımınızı beklemekteyim

teşekkürler

ilgilenen arkadaşlarım varsa bence güzel bi vergi levhası çalışması oldu indirip kullanabilirler
 

Ekli dosyalar

Merhaba Sn.drummers
matrah 0 veya boş iken verginin de 0 veya boş olacağını varsayarak, yalnızca matrah kısmı 0 veya boşken çalışan örnek bir dosya hazırladım. inceleyin.
 

Ekli dosyalar

bir değişiklik yok gönderdiğiniz dosya da istediğim şey yok

sanırım yanlıl anlattım ben

matrah ve vergi bölümünde rakam yoksa bu 2 hücreyi birleştirecek ve "matrah beyan edilmemiştir" yazacak

sizim örnekte herhengi bir çalışma görünmüyor üstadım

yinede ilginize teşekürler
 
ben farklı bir sayfada birşeyler yapmaya çalıştım
dosyanızı inceleyiniz.
 
Son düzenleme:
bilgileri "data" sekmesşnden aldığımızı unutmıyalım eğer data sekmesinde 2009 veya 2008 veya 2007 yıllarında birşey yazmaz ise bu işlem olacak
ilginize teşekkürler
 
drummers' Alıntı:
bilgileri "data" sekmesşnden aldığımızı unutmıyalım eğer data sekmesinde 2009 veya 2008 veya 2007 yıllarında birşey yazmaz ise bu işlem olacak
ilginize teşekkürler
Genişletmek için tıkla ...

kontrol ettinizmi
 
kontrol ettim ama bi değişiklik yok hala "matrah beyan edilmemiştir" yazmıyor ve hücereler birleştirilmiyor
 
başka bir sayfa olacak içinde ona bakacaksınız.
 
kaydırma düğmesi ile tarıyacaksınız
 
Merhaba,

Alternatif olsun. Eki inceleyiniz..

.
 

Ekli dosyalar

drummers' Alıntı:
bir değişiklik yok gönderdiğiniz dosya da istediğim şey yok

sanırım yanlıl anlattım ben

matrah ve vergi bölümünde rakam yoksa bu 2 hücreyi birleştirecek ve "matrah beyan edilmemiştir" yazacak

sizim örnekte herhengi bir çalışma görünmüyor üstadım

yinede ilginize teşekürler
Genişletmek için tıkla ...

Ben yalnızca 2007 için ayarladım. 2007 nin matrahı 0 veya boşsa vergi levhası sayfasında beyan oluna matrah ve beyan olunan vergi hücreleri birleşip istediğiniz uyarı bu birleştirilmiş hücreye geliyor. sizin itediğiniz bu değilmi örnek dosyayı birdaha incelermisiniz. dosya ekte
 

Ekli dosyalar

ynmcany' Alıntı:
Ben yalnızca 2007 için ayarladım. 2007 nin matrahı 0 veya boşsa vergi levhası sayfasında beyan oluna matrah ve beyan olunan vergi hücreleri birleşip istediğiniz uyarı bu birleştirilmiş hücreye geliyor. sizin itediğiniz bu değilmi örnek dosyayı birdaha incelermisiniz. dosya ekte
Genişletmek için tıkla ...


bu şekilde e tamamdır
fakat yazdığınız formülü göremedim

burdan yazabilirseniz diğerlerinede uygulayabilirim
 
birde buna bak buda makrolu hücreler birleşiyor burada

Private Sub ComboBox1_Change()
Worksheets(ActiveSheet.Name).Cells(1, 1).Value = ComboBox1.ListIndex + 1
If Worksheets(ActiveSheet.Name).Cells(25, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR" Then
Range("S25:BG27").UnMerge
Range("S25:AL27").Merge
Range("AM25:BG27").Merge
Range("S25:AL27").Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(ActiveSheet.Name).Cells(25, 19).Value = "=IF(AND(R[-24]C[-18]>0),INDEX(data!R[-23]C[13]:R[4975]C[13],R[-24]C[-18],0),0)"
Worksheets(ActiveSheet.Name).Cells(25, 39).Value = "=IF(AND(R[-24]C[-38]>0),INDEX(data!R[-23]C[-6]:R[4975]C[-6],R[-24]C[-38],0),0)"
End If
If Worksheets(ActiveSheet.Name).Cells(28, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR" Then
Range("S28:BG30").UnMerge
Range("S28:AL30").Merge
Range("AM28:BG30").Merge
Range("S28:AL30").Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(ActiveSheet.Name).Cells(28, 19).Value = "=IF(AND(R[-27]C[-18]>0),INDEX(data!R[-26]C[15]:R[4972]C[15],R[-27]C[-18],0),0)"
Worksheets(ActiveSheet.Name).Cells(28, 39).Value = "=IF(AND(R[-27]C[-38]>0),INDEX(data!R[-26]C[-4]:R[4972]C[-4],R[-27]C[-38],0),0)"
End If
If Worksheets(ActiveSheet.Name).Cells(31, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR" Then
Range("S31:BG33").UnMerge
Range("S31:AL33").Merge
Range("AM31:BG33").Merge
Range("S31:AL33").Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(ActiveSheet.Name).Cells(31, 19).Value = "=IF(AND(R[-30]C[-18]>0),INDEX(data!R[-29]C[17]:R[4969]C[17],R[-30]C[-18],0),0)"
Worksheets(ActiveSheet.Name).Cells(31, 39).Value = "=IF(AND(R[-30]C[-38]>0),INDEX(data!R[-29]C[-2]:R[4969]C[-2],R[-30]C[-38],0),0)"
End If


If Worksheets(ActiveSheet.Name).Cells(25, 19).Value = 0 Then
Range("AM25:BG27").ClearContents
Range("S25:BG27").Merge
Worksheets(ActiveSheet.Name).Cells(25, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Range("S25:AL27").Borders(xlEdgeRight).LineStyle = xlNone
End If
If Worksheets(ActiveSheet.Name).Cells(28, 19).Value = 0 Then
Range("AM28:BG30").ClearContents
Range("S28:BG30").Merge
Worksheets(ActiveSheet.Name).Cells(28, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Range("S28:AL30").Borders(xlEdgeRight).LineStyle = xlNone
End If
If Worksheets(ActiveSheet.Name).Cells(31, 19).Value = 0 Then
Range("AM31:BG33").ClearContents
Range("S31:BG33").Merge
Worksheets(ActiveSheet.Name).Cells(31, 19).Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Range("S31:AL33").Borders(xlEdgeRight).LineStyle = xlNone
End If
End Sub
 
Son düzenleme:
drummers' Alıntı:
bu şekilde e tamamdır
fakat yazdığınız formülü göremedim

burdan yazabilirseniz diğerlerinede uygulayabilirim
Genişletmek için tıkla ...

Merhaba Sn.drummers
Kod: 
Private Sub Worksheet_Activate()

If Sayfa14.Range("AF2").Value = 0 Then
Sayfa1.Range("S25").Value = ""
Sayfa1.Range("AN25").Value = ""
Sayfa1.Range("S25:BH27").Merge
Sayfa1.Range("S25").Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Else
Sayfa1.Range("S25:BH27").UnMerge
Sayfa1.Range("S25:Al27").Merge
Sayfa1.Range("AN25:BH27").Merge
Sayfa1.Range("S25").Value = Sayfa14.Range("AF2").Value
Sayfa1.Range("AN25").Value = Sayfa14.Range("AG2").Value
End If

If Sayfa14.Range("AH2").Value = 0 Then
Sayfa1.Range("S29").Value = ""
Sayfa1.Range("AN29").Value = ""
Sayfa1.Range("S29:BH31").Merge
Sayfa1.Range("S29").Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Else
Sayfa1.Range("S29:BH31").UnMerge
Sayfa1.Range("S29:Al31").Merge
Sayfa1.Range("AN29:BH31").Merge
Sayfa1.Range("S29").Value = Sayfa14.Range("AH2").Value
Sayfa1.Range("AN29").Value = Sayfa14.Range("AI2").Value
End If

If Sayfa14.Range("AJ2").Value = 0 Then
Sayfa1.Range("S33").Value = ""
Sayfa1.Range("AN33").Value = ""
Sayfa1.Range("S33:BH35").Merge
Sayfa1.Range("S33").Value = "MATRAH BEYAN EDİLMEMİŞTİR"
Else
Sayfa1.Range("S33:BH35").UnMerge
Sayfa1.Range("S33:Al35").Merge
Sayfa1.Range("AN33:BH35").Merge
Sayfa1.Range("S33").Value = Sayfa14.Range("AJ2").Value
Sayfa1.Range("AN33").Value = Sayfa14.Range("AK2").Value
End If

End Sub
Ben bunu formülle değil kod ile yaptım. Kodlar Sayfa1 (vergi levhası) kod Sayfasında. ayrıca ekteki dosyada 2008, 2009' un kodlarını da düzenledim. örnek dosyayı inceleyin.
 

Ekli dosyalar

hepinize ayrı ayrı teşekkürler baya iyi örnekler aldım sayenizde
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst