veri yoksa hücreleri birleştirsin ile ilgili sorum

[drummers]

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

 

[ynmcan]

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.

 

[drummers]

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

 

[halit3]

ben farklı bir sayfada birşeyler yapmaya çalıştım
dosyanızı inceleyiniz.

 

[drummers]

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

 

[halit3]

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

kontrol ettinizmi

 

[drummers]

kontrol ettim ama bi değişiklik yok hala "matrah beyan edilmemiştir" yazmıyor ve hücereler birleştirilmiyor

 

[halit3]

başka bir sayfa olacak içinde ona bakacaksınız.

 

[halit3]

kaydırma düğmesi ile tarıyacaksınız

 

[drummers]

gördüm ama mantığını anlamadım

 

[Ömer]

Merhaba,

Alternatif olsun. Eki inceleyiniz..

.

 

[drummers]

Merhaba,

Alternatif olsun. Eki inceleyiniz..

.

tam istediğm gibi olmuş eline sağlık

ayrıyeten halit beyede çok teşekkürler gece gece nazımızı çekti

 

[ynmcan]

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 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

 

[drummers]

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

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

burdan yazabilirseniz diğerlerinede uygulayabilirim

 

[halit3]

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

 

[ynmcan]

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

burdan yazabilirseniz diğerlerinede uygulayabilirim

Merhaba Sn.drummers

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.

 

[drummers]

hepinize ayrı ayrı teşekkürler baya iyi örnekler aldım sayenizde