Tablo

[Serdarland]

Merhaba arkadaşlar.
ekte bulunan tabloyu yapmak istiyorum ama işin altından kalkamadım basit görünmesine rağmen. yardımcı olurmusunuz.
istediğim iki tarih aralığındaki uçakların listesini sayfa1 den alıp sayfa2de göstermesı.
yardımcı olurmusunuz. Teşekkür ederim

 

[Serdarland]

hadi arkadaşlar lütfen bi el atın

 

[rekkezum]

merhaba kardesım anladıgım kadarıyla sende havacılık ıle mesgulsun. konu hakkında sana yardımcı olmaya calısırım da (bu arada ben de havacıyım) faka senın ıstegın bıraz zahmetlı bu sebeple kımse ılgılenmemıs olabılır. ben de senden yardım ıstıcem su a sutununu nasıl sabıtledın onu bana soyleyebılırmısın ? ben boyle bır seye hıc ıhtıyacım olmadıda sımdı lazım

 

[Serdarland]

excell 2007 de görünüm/böl/ ayarlamayı yaptıktan sonra dondur diyorsun.

aslında istediğimin basit bi fikir olduğunu düşünüyorum her nekadar yapamasamda
makroyla çok güzel olur. daha önce örneğini görmüştüm

 

[mami68]

Böyle bir şey mi olsun istediğiniz?

 

[Serdarland]

Böyle bir şey mi olsun istediğiniz?

emeğiniz için çok teşekkür ederim. ama ben iki tarih arası verilen değerlerin sayfa1den alıp sayfa ikiye getirmesini istiyordum.

sayfa ikideki başlangıç ve bitiş tarihlerine karşılık.

teşekkür ederim

 

[Serdarland]

yardım edecek yokmu

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub rapor()
Dim baslangic As Date, son As Date
Dim sonsat As Long, sonsut As Integer, sat As Long
Dim i As Long, k As Integer
Sheets("Sayfa2").Select
If Not IsDate(Range("G1").Value) Then
    MsgBox "Başlangıç tarihine bir Tarih yazınız..!!", vbCritical, "DİKKAT"
    Range("G1").Select
    Exit Sub
End If
If Not IsDate(Range("G2").Value) Then
    MsgBox "Başlangıç tarihine bir Tarih yazınız..!!", vbCritical, "DİKKAT"
    Range("G2").Select
    Exit Sub
End If
Application.ScreenUpdating = False
Range("A6:IV256").ClearContents
If Range("G2").Value < Range("G1").Value Then
    baslangic = Range("G2").Value
    son = Range("G1").Value
    Else
    baslangic = Range("G1").Value
    son = Range("G2").Value
End If
Set s1 = Sheets("Sayfa1")
sonsat = s1.Cells(65536, "B").End(xlUp).Row
sonsut = s1.Cells(2, 256).End(xlToLeft).Column
sat = 6
For i = 3 To sonsat
    If s1.Cells(i, "B").Value >= baslangic And _
    s1.Cells(i, "B").Value <= son Then
        For k = 1 To sonsut
            Cells(sat, k).Value = s1.Cells(i, k).Value
        Next k
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
Set s1 = Nothing
MsgBox "Rapor Çıkarıldı..!!", vbOKOnly + vbInformation, "EVREN"
End Sub

 

[Serdarland]

daha güzel olamazdı
ellerine sağlık

 

[Orion1]

daha güzel olamazdı
ellerine sağlık

Rica ederim.
İyi çalışmalar.

 

[Orion1]

daha güzel olamazdı
ellerine sağlık

Rica ederim.
İyi çalışmalar.