Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/03/2019 11:08
Konu Sahibi
amelie
Yorumlar
3
Okunma
319
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
amelie

amelie

Üye
6438
 6
 23
 09/05/2009
0
 İstanbul
 
 Ofis 2003
 25/03/2019,16:26
Çözüldü 
Arkadaşlar merhaba,
Ekli örnek dosyada mevcut A sütunundaki "KOD"  bilgileri aynı olan verileri KOD ismi ile aynı olacak
şekilde sayfalara ayırmak istiyorum.
Konuyla ilgili bilgi ve yardımlarınızı rica ediyorum.
Saygılarımla,



amelie, 09-05-2009 tarihinden beri AccessTr.neT üyesidir.

halily

halily

Uzman
65596
ha....
 26
 1.260
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,00:20
Alt+F11 ile kod sayfasına girin
yeni bir modül ekleyip aşağıdaki kodu yapıştırın

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub VeriBolSyf()
    Const lngNameCol = 1 ' verilerin alınacağı sütun KODların olduğu A sütünu
    Const lngFirstRow = 2 ' verilerin başladığı satır
    Dim wshSource As Worksheet
    Dim wshTarget As Worksheet
    Dim lngRow As Long
    Dim lngLastRow As Long
    Dim lngTargetRow As Long
    Application.ScreenUpdating = False
    Set wshSource = ActiveSheet
    lngLastRow = wshSource.Cells(wshSource.Rows.Count, lngNameCol).End(xlUp).Row
    For lngRow = lngFirstRow To lngLastRow
        If wshSource.Cells(lngRow, lngNameCol).Value <> wshSource.Cells(lngRow - 1, lngNameCol).Value Then
            Set wshTarget = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            wshTarget.Name = wshSource.Cells(lngRow, lngNameCol).Value
            wshSource.Rows(lngFirstRow - 1).Copy Destination:=wshTarget.Cells(1, 1)
            lngTargetRow = 2
        End If
        wshSource.Rows(lngRow).Copy Destination:=wshTarget.Cells(lngTargetRow, 1)
        lngTargetRow = lngTargetRow + 1
    Next lngRow
    Application.ScreenUpdating = True
End Sub

kod sayfasını kapatıp normal Excel sayfasına geçip
"görünüm" sekmesinde "makrolar" ı açıp "VeriBolSyf" seçin
dilerim işinize yarar.



...........
amelie

amelie

Üye
6438
 6
 23
 09/05/2009
0
 İstanbul
 
 Ofis 2003
 25/03/2019,16:26
Heart 
(21/03/2019 23:57)haliliyas Adlı Kullanıcıdan Alıntı: Alt+F11 ile kod sayfasına girin
yeni bir modül ekleyip aşağıdaki kodu yapıştırın

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub VeriBolSyf()
    Const lngNameCol = 1 ' verilerin alınacağı sütun KODların olduğu A sütünu
    Const lngFirstRow = 2 ' verilerin başladığı satır
    Dim wshSource As Worksheet
    Dim wshTarget As Worksheet
    Dim lngRow As Long
    Dim lngLastRow As Long
    Dim lngTargetRow As Long
    Application.ScreenUpdating = False
    Set wshSource = ActiveSheet
    lngLastRow = wshSource.Cells(wshSource.Rows.Count, lngNameCol).End(xlUp).Row
    For lngRow = lngFirstRow To lngLastRow
        If wshSource.Cells(lngRow, lngNameCol).Value <> wshSource.Cells(lngRow - 1, lngNameCol).Value Then
            Set wshTarget = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            wshTarget.Name = wshSource.Cells(lngRow, lngNameCol).Value
            wshSource.Rows(lngFirstRow - 1).Copy Destination:=wshTarget.Cells(1, 1)
            lngTargetRow = 2
        End If
        wshSource.Rows(lngRow).Copy Destination:=wshTarget.Cells(lngTargetRow, 1)
        lngTargetRow = lngTargetRow + 1
    Next lngRow
    Application.ScreenUpdating = True
End Sub

kod sayfasını kapatıp normal Excel sayfasına geçip
"görünüm" sekmesinde "makrolar" ı açıp "VeriBolSyf" seçin
dilerim işinize yarar.



desteğiniz için çoook teşekkür ediyorum..hemen deneyeceğim hocam


amelie, 09-05-2009 tarihinden beri AccessTr.neT üyesidir.

halily

halily

Uzman
65596
ha....
 26
 1.260
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,00:20
olumlu yada olumsuz sonucu bildirir misiniz?




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ekders Uygulamasında Verileri Farklı Sayfadaki Tabloya Yerleştirmek martineden-30 35 667 29/05/2019, 12:36
Son Yorum: halily
Çözüldü Boşluktan Öncekini Ve Sonrakini Ayırma husem 5 961 14/04/2017, 17:31
Son Yorum: husem
Çözüldü Farklı iki çalışma sayfasında ortak 1 veriden diğer verileri karşılaştırma exbio83 4 3.696 16/05/2015, 12:25
Son Yorum: turkhackoff
Çözüldü excelde tüm sayfalara aynı anda koruma koyma axtmm 3 2.688 09/10/2013, 16:05
Son Yorum: ogulcan92
Çözüldü Ana Menu İçinde Verileri Listeleyip Güncelleme ve Ekleme Yapma askubom 3 2.165 08/10/2013, 10:19
Son Yorum: ogulcan92

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.