listeyi düzenlemek

[masuk500]

merhaba arkadaşlar
dosya ektedir

 

[muygun]

Merhaba;
tablonuzda birden çok TH NO başlıklı sütun var.
Ekteki tabloda H sütunundaki ilgili hücre değerine göre koşullu biçimlendirme yapıldı.
Hücrede iken Biçim>koşullu biçimlendirme sekmesinden gerekli değişikliği yapabilirsiniz.
İyi çalışmalar.

 

[masuk500]

sayın muygun teşekkür ederim
koşullu biçimlendirme ile birlikte bu listeyi her ya nasıl yenileyebiliriz.tabi eski veriler kaybaolmadan

 

[muygun]

Merhaba;
öncelikle her ay standart olacak tablonuzu "şablon" sayfasında oluşturun.
sayfaoluştur sayfasına geçin ve ay adını A2 den itibaren herhangi bir hücreye yazıp entere basın.
Artık şablon sayfasının aynısını (her türlü biçimlendirme ve formüller dahil) sayfaoluştur sayfasından oluşturabilir, oluşturduğunuz sayfada lokal olarak çalışma yapabilirsiniz.
İyi çalışmalar.

 

[masuk500]

çok teşekkür ederim sayın muygun

 

[masuk500]

sayın muygun kodları incelemek amacı ile vba şifresini verebilirmisiniz?

 

[parametre]

herhangibir sifre yok koruma kaldır deyip kodları gorebilirsiniz

 

[masuk500]

merhaba sayın parametre sayfa korumasını kasdetmemiştim.vba ya giremiyorum password istiyor

 

[muygun]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
On Error GoTo Devam
Sheets(Target.Text).Select
MsgBox "BU İSİMDE BİR SAYFA MEVCUTTUR.", vbCritical
Sheets("sayfaoluştur").Select
Target.Select
Application.ScreenUpdating = True
Exit Sub
Devam:
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target.Text
Sheets("sayfaoluştur").Select
Range("A2:A65536").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

kodlar bunlar ama sayfa nasıl ve neden şifrelendi anlamadım.
Ayrıca kodlarda bana ait değil (yine burdan değerli bir arkadaşın çalışması)

 

[masuk500]

teşekkürler sayın muygun ve bu çalışmaya katılan diğer arkadaşlar