sorgu

[furkan14]

Arkadaşlar, forum sayfanızı bir arkadaş tavsiyesi ile birkaç gün önce tanıdım. Forumu inceledim çok beğendim, bende foruma üye olup sorunumu sizlerle paylaşmak istedim. Belki çok önemli birşey değil ancak pek ofis programları ile alakam olmadığından anlamakta zorlandım, ancak sizlerin çalışmaları takip ederek büyük yol kat edeceğimi biliyorum. Herkese saygılarımı sunuyorum. Bir dosya ekliyorum müsait arkadaşlar bakarlarsa sevinirim

 

[Ömer]

Merhaba,

M1 hücresine,

=EĞERSAY(DOLAYLI("'"&C1&" YILI'!B1:B1000");A1)

yazınız.

B6 hücresine,

=EĞER(SATIR(A1)>$M$1;"";İNDİS(DOLAYLI("'"&$C$1&" YILI'!B1:K1000");KÜÇÜK(EĞER(DOLAYLI("'"&$C$1&" YILI'!B6:B1000")=$A$1;SATIR($B$6:$B$1000));SATIR(A1));SÜTUN(A1)))

Formülünü yazdıktan sonra yan ve alt hücrelere kopyalayınız..

2. yazdığım formül dizi formülüdür. Formülü hücreye yazdıktan sonra entera basmadan ctrl shift enter tuş kombinasyonuna basarak formülün girişini tamamlayınız. Bu işlemden sonra formülün başına ve sonuna { } ayıraçları otomatik eklenecekir..

.

 

[Orion1]

Foruma hoşgeldiniz.
Dosyanız ekte.Butona basınız.

Sub aktar()
Dim yil As String, i As Long, sat As Long
Sheets("SORGULAMA").Select
Application.ScreenUpdating = False
Range("A6:K65536").ClearContents
If Range("C1").Value = "" Then
    MsgBox "C1 hücresine Bir yıl girmelisiniz..!!", vbCritical, "UYARI"
    Range("C1").Select
Exit Sub
End If
sat = 6
With Sheets(Range("C1").Value & " YILI")
    For i = 6 To .Cells(65536, "A").End(xlUp).Row
        Range(Cells(sat, "A"), Cells(sat, "K")).Value = _
        .Range(.Cells(i, "A"), .Cells(i, "K")).Value
        sat = sat + 1
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbOKOnly + vbInformation, "AKTARMA"
    
End Sub

 

[furkan14]

Sayın Evren Gizlen; C1 hücresine yazılan yıldaki A1 hücresine yazılan il ile ilgili bilgileri vermesini istiyorum. Çünkü asıl dosyamda 2001-2008 yılı sayfalarında her yılda 1200 satırlık veri mevcut, 2009 yılına veri girişi halen devam etmekte, yani 2006 yılında (C1) ANKARA (A1) ili ile ilgili bilgileri vermesini gibi

 

[furkan14]

Sayın Evren Gizlen; koşul koymak istiyorum, yani 2006 yılındaki ANKARA ili ile ilgili verileri getirmesi, 2008 yılı İSTANBUL ile ilgili bilgileri getirmesi gibi, C1 hücresine yazılan yılın tamamı değil, böyle birşey olmuyormu yoksa bu ayrıntı gözden mi kaçtı saygılar

 

[Orion1]

Sayın Evren Gizlen; C1 hücresine yazılan yıldaki A1 hücresine yazılan il ile ilgili bilgileri vermesini istiyorum. Çünkü asıl dosyamda 2001-2008 yılı sayfalarında her yılda 1200 satırlık veri mevcut, 2009 yılına veri girişi halen devam etmekte, yani 2006 yılında (C1) ANKARA (A1) ili ile ilgili bilgileri vermesini gibi

Anlaşıldı şimdi hallederim.

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim yil As String, i As Long, sat As Long, sehir As String, deg As String
Sheets("SORGULAMA").Select
Application.ScreenUpdating = False
Range("A6:K65536").ClearContents
If Range("C1").Value = "" Then
    MsgBox "C1 hücresine Bir yıl girmelisiniz..!!", vbCritical, "UYARI"
    Range("C1").Select
Exit Sub
End If
sat = 6
With Sheets(Range("C1").Value & " YILI")
    For i = 6 To .Cells(65536, "A").End(xlUp).Row
        If Range("A1").Value = "" Then
            sehir = UCase(Replace(Replace(.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        Else
            sehir = UCase(Replace(Replace(Range("A1").Value, "ı", "I"), "i", "İ"))
        End If
            deg = UCase(Replace(Replace(.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        If sehir = deg Then
        Range(Cells(sat, "A"), Cells(sat, "K")).Value = _
        .Range(.Cells(i, "A"), .Cells(i, "K")).Value
        sat = sat + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbOKOnly + vbInformation, "AKTARMA"
    
End Sub

 

[Orion1]

7nci mesajda yazdığım kodlarda ve yolldaığım dosyada bir yerde bir hata vardı tekrardan düzelttim.Onu dikkate alınız.

 

[furkan14]

Bu kadar kolaymıydı ya,

Sayın espiyonajl; sizin vermiş olduğunuz formülleri verilerin olduğu çalışmama uyguladım gerçekten çok güzel oldu ve Sayın Evren Gizlen; sizin verdiğiniz kodlarıda uyguladım inanılmaz mükemmel birşey oldu.
Ben süzlerle uğraşırken benim işimde sizlerin bu katkısıyla büyük kolaylık sağlanmış oldu. Her ikinize de sonsuz teşekkürler, hakkınızı helal edin.

Sayın Evren Gizlen; kusura bakmayın yazdığım mesaj gitmedi gibi geldi ondan dolayı iki defa üst üste yazdım.

 

[Orion1]

8nci mesajı okudunuzmu?

 

[furkan14]

Sayın Evren Gizlen; foruma yazdığım soruya bu kadar kısa zamanda cevap verilmesi beni heyecanlandırdı, inanın mesaj yazarken sizin o mesajınızı görmemişim özür, hakkınızı helal edin.

 

[Orion1]

Sayın Evren Gizlen; foruma yazdığım soruya bu kadar kısa zamanda cevap verilmesi beni heyecanlandırdı, inanın mesaj yazarken sizin o mesajınızı görmemişim özür, hakkınızı helal edin.

Rica ederim.
İyi çalışmalar.

 

[furkan14]

Sayın Evren Gizlen; son birşey isteyebilirmiyim, kusura bakmayın sadece sorgulama sayfasına veriler aktarıldığında S.NO sutunu altında veri girişindeki sıra numarasını değil, tekrar sıra numarası vermesini istiyorum yani 1-2-3 gibi 1-10-12 gibi değil

 

[Orion1]

Sayın Evren Gizlen; son birşey isteyebilirmiyim, kusura bakmayın sadece sorgulama sayfasına veriler aktarıldığında S.NO sutunu altında veri girişindeki sıra numarasını değil, tekrar sıra numarası vermesini istiyorum yani 1-2-3 gibi 1-10-12 gibi değil

Dosyanız ekte.

Sub aktar()
Dim yil As String, i As Long, sat As Long, sehir As String, deg As String
Sheets("SORGULAMA").Select
Application.ScreenUpdating = False
Range("A6:K65536").ClearContents
If Range("C1").Value = "" Then
    MsgBox "C1 hücresine Bir yıl girmelisiniz..!!", vbCritical, "UYARI"
    Range("C1").Select
Exit Sub
End If
sat = 6
With Sheets(Range("C1").Value & " YILI")
    For i = 6 To .Cells(65536, "A").End(xlUp).Row
        If Range("A1").Value = "" Then
            sehir = UCase(Replace(Replace(.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        Else
            sehir = UCase(Replace(Replace(Range("A1").Value, "ı", "I"), "i", "İ"))
        End If
            deg = UCase(Replace(Replace(.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        If sehir = deg Then
        Cells(sat, "A").Value = sat - 5
        Range(Cells(sat, "B"), Cells(sat, "K")).Value = _
        .Range(.Cells(i, "B"), .Cells(i, "K")).Value
        sat = sat + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbOKOnly + vbInformation, "AKTARMA"
    
End Sub

 

[Ömer]

O kısmı bende atlamışım.

A6 hücresine yazarak alt satırlara kopyalayınız..

=EĞER(B6="";"";SATIRSAY($A$6:A6))

.

 

[furkan14]

Sayın Evren Gizlen ve Sayın espiyonajl; arkadaşlar gerçekten ama gerçekten bu samimiyetle söylüyorum mükemmelsiniz, teşekkür ediyorum, hakkınızı helal edin lütfen...