Girilen veriye göre sayfa açılması ve kopyalanması

[truvali27m]

Merhaba benim öğrenmek istediğim bir şey var.örnek sayfayı da ekledim.Sayfaya yeni veri girişi yaptığım zaman adı-soyadı sütünundaki isme göre yeni bir sayfa açılacak aynı çalışma kitabında ve ona ait veriler de kopyalanacak otomatik olarak bunu hangi kodlarla sağlayabilirim acaba.Yani diyelimki adı-soyadı kısmına ahmet yazdım ben ve kaydettim program hemen otomatik olarak ahmet adında yeni bir sayfa oluşturacak ve ahmet'e ait olan veriler de o sayfaya kopyalanacak.Şimdiden teşekkür ederim ilgilenecek olanlara.

 

[Mahir64]

Merhaba
eki İnceleyin

 

[truvali27m]

Merhaba
eki İnceleyin

Sayın Black Lord çok teşekkür ederim gerçekten de istediğim tam bu şekilde birşeydi.Bir de başka bişey rica etsem o yazdığınız kodların anlamını yanlarına yazabilir misiniz ne işe yaradığını bilirsem ben de kullanabilirm.bazılarını biliyorum ama tam değil.

 

[Mahir64]

Mükerrer kayıt olayı var, sonradan fark ettim. Aktardıklarınız sayfa boyunca
Örnek AHMET 50 tane gitgiğinizde

  Range("A" & i & ":E" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row [COLOR=Red]+ 1[/COLOR])

+1 alta aktarıyor orayı silerseniz sayfada yazdığınız 50 AHMET aktarılır ama silmezseniz her seferinde 50 AHMET aktarılır onu irdeleyin biraz.

 

[truvali27m]

Mükerrer kayıt olayı var, sonradan fark ettim. Aktardıklarınız sayfa boyunca
Örnek AHMET 50 tane gitgiğinizde

  Range("A" & i & ":E" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row [COLOR=Red]+ 1[/COLOR])

+1 alta aktarıyor orayı silerseniz sayfada yazdığınız 50 AHMET aktarılır ama silmezseniz her seferinde 50 AHMET aktarılır onu irdeleyin biraz.

Evet onu ben de denerken farkettim sonradan.Dediğiniz gibi +1 sildiğim zaman mükerrer olmuyor sadece yeni açılan sayfaya kayıt yapıyor.Tekrar teşekkür ederim.

 

[Mahir64]

Evet onu ben de denerken farkettim sonradan.Dediğiniz gibi +1 sildiğim zaman mükerrer olmuyor sadece yeni açılan sayfaya kayıt yapıyor.Tekrar teşekkür ederim.

Kolay gelsin
iyi çalışmalar :hey:

 

[Excelmy]

Sayfaya yeni veri girişi yaptığım zaman adı-soyadı sütünundaki isme göre yeni bir sayfa açılacak aynı çalışma kitabında ve ona ait veriler de kopyalanacak. Yani diyelimki adı-soyadı kısmına ahmet yazdım ben ve kaydettim program hemen otomatik olarak ahmet adında yeni bir sayfa oluşturacak ve ahmet'e ait olan veriler de o sayfaya kopyalanacak.

Alternatif olsun bir örnek daha.

Ekli dosyayı inceleyiniz.

 

[yunka]

Sayn lord bu programı hisse senetlerine uyguladım
genel sayfasına hisseleri köprü yaptım fakat dağıt yapınca
alt satırdaki hisse fiatların yazıyor neden acaba

 

[Mahir64]

Sayn lord bu programı hisse senetlerine uyguladım
genel sayfasına hisseleri köprü yaptım fakat dağıt yapınca
alt satırdaki hisse fiatların yazıyor neden acaba

Merhaba
kodlar bu dosyaya göre hazırlandı
Sizin dosyanızı görmek lazım.

 

[truvali27m]

Alternatif olsun bir örnek daha.

Ekli dosyayı inceleyiniz.

Sayın Kuman,çok teşekkür ederim örnek için.Bu sizin örneğiniz de çok işime yarar gerçekten de.sayfaların görünmeyip sağ klik yapınca görünmesi çok süper bir özellik olmuş elinize sağlık...

 

[yunka]

Merhaba
kodlar bu dosyaya göre hazırlandı
Sizin dosyanızı görmek lazım.

sayın lord dosyaya bir bakarmısınız teşekkür

 

[bilgitron]

Alternatif olsun bir örnek daha.

Ekli dosyayı inceleyiniz.

ikinci kez aynı isim yazılınca bir alt satıra yazması gerekli ama ilk satırda kalıyor.


Bilginize....

 

[Mahir64]

sayın lord dosyaya bir bakarmısınız teşekkür

Merhaba
Dosyanıza göre

Sub Dağıt()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("Veri")
sg.Select

For i = 7 To [A65536].End(3).Row

    Sayfa = Trim(Cells(i, "A"))
    
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Select
        Range("A5:J5").Copy Sheets(Sayfa).[A1]
    End If
    
    Range("A" & i & ":J" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row)

Next i

End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[yunka]

Merhaba
Dosyanıza göre

Sub Dağıt()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("Veri")
sg.Select

For i = 7 To [A65536].End(3).Row

    Sayfa = Trim(Cells(i, "A"))
    
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Select
        Range("A5:J5").Copy Sheets(Sayfa).[A1]
    End If
    
    Range("A" & i & ":J" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row)

Next i

End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

sayın lord böyle olmadı ilk hisseyi dağıtınca bütün hisselere sayfa açıyor
sadece köprüyle seçtiğim hisseyi alt alt da yazmıyor verileri

 

[yunka]

sayın lord dosyada düzenleyip verebilirmisiniz çünkü kod çalışmaı

 

[canmem]

Sayın Kuman merhaba
Mevcut başlıkları nasıl çoğaltabiliriz,örnek;adres,yaş,Tc no,araç plakası,giriş saati,çıkış saati vs.gibi

 

[imrecep]

merhabalar,
veri sayfasının biçimini yeni sayfaya nasıl aktarabiliriz.yani A,B,C.. sutün ve satırlarının genişliğinin yeni oluşacak sayfada da aynı kalmasını nasıl sağlarız?
Ayrıca ben bu kodu Kod görüntüle ve çalıştır olarak yapıyorum.kısa bir tuş butonu nasıl yaparım?

Sub Dağıt()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("Veri")
sg.Select

For i = 1 To [A1].End(3).Row

Sayfa = Trim(Cells(i, "A"))

If Not SayfaVarMi(Sayfa) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa
sg.Select
Range("A1169").Copy Sheets(Sayfa).[A1]
End If

Range("A" & i & "" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row)

Next i

End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[imrecep]

yardım lütfen

 

[Antepliislam]

Hücreye girilen veriye göre Yeni sayfalar açıp verileri kopyalama

Merhabalar, bu örnege baktım fakat içinden çıkamadım, benim sizden istegim ise D Sütunundaki Banka adına göre Sayfa 1 deki girilen banka adına göre banka sayfası açıp oraya sadece o bankanın oldugu satırlarının tümünün kopyalanmasını istiyorum. Yani her bankanın kredileri ayrı ayrı otomatik olarak oluşturulsun istiyorum. Dosya ektedir.