• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sorgu

F

furkan14

Katılım
29 Mayıs 2009
Mesajlar
13
Excel Vers. ve Dili
2002 Excel
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
 

Ekli dosyalar

Merhaba,

M1 hücresine,

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

yazınız.

B6 hücresine,

Kod: 
=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..

.
 
Foruma hoşgeldiniz.
Dosyanız ekte.Butona basınız. :cool:
Kod: 
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
 

Ekli dosyalar

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
 
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
 
furkan14' Alıntı:
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
Genişletmek için tıkla ...
Anlaşıldı şimdi hallederim.:cool:
 
Dosyanız ekte.:cool:
Kod: 
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
 

Ekli dosyalar

7nci mesajda yazdığım kodlarda ve yolldaığım dosyada bir yerde bir hata vardı tekrardan düzelttim.Onu dikkate alınız.:cool:
 
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.
 
8nci mesajı okudunuzmu? :cool:
 
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.
 
furkan14' Alıntı:
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.
Genişletmek için tıkla ...
Rica ederim.
İyi çalışmalar.:cool:
 
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
 
furkan14' Alıntı:
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
Genişletmek için tıkla ...
Dosyanız ekte.:cool:
Kod: 
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
 

Ekli dosyalar

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

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

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

.
 
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...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst