Soru 13

14 Comments

1. Sub liste()

   ss = Cells(Rows.Count, 10).End(xlUp).Row

   For i = 4 To 10

   If Cells(i, 4) “” Then
   ss = ss + 1
   Cells(ss, 10) = Cells(i, 3)
   Cells(ss, 11) = Cells(3, 4)
   Cells(ss, 12) = Cells(i, 4)

   End If

   If Cells(i, 5) “” Then
   ss = ss + 1
   Cells(ss, 10) = Cells(i, 3)
   Cells(ss, 11) = Cells(3, 5)
   Cells(ss, 12) = Cells(i, 5)

   End If

   If Cells(i, 6) “” Then
   ss = ss + 1
   Cells(ss, 10) = Cells(i, 3)
   Cells(ss, 11) = Cells(3, 6)
   Cells(ss, 12) = Cells(i, 6)

   End If

   If Cells(i, 7) “” Then
   ss = ss + 1
   Cells(ss, 10) = Cells(i, 3)
   Cells(ss, 11) = Cells(3, 7)
   Cells(ss, 12) = Cells(i, 7)

   End If

   Next i

   End Sub

   Yanıtla

2. =İNDİS($C$3:$G$10;KAÇINCI(J4;$C$3:$C$10;0);KAÇINCI(K4;$C$3:$G$3;0))

   =TOPLA.ÇARPIM((J4=$C$4:$C$10)*(K4=$D$3:$G$3)*($D$4:$G$10))

   Yanıtla

3. Dim hucre As Range
   Dim alan As Range
   Dim satir As Byte

   Set alan = Range(“D4:G10”)
   satir = 4

   For Each hucre In alan
   If IsEmpty(hucre) = False Then
   Cells(satir, 10) = Cells(hucre.Row, 3)
   Cells(satir, 11) = Cells(3, hucre.Column)
   Cells(satir, 12) = hucre
   satir = satir + 1
   End If
   Next hucre

   Yanıtla

4. Merhaba,
   10 satırlık kodlar 🙂
   Sub soru_13()
   For x = 4 To Range(“C” & Rows.Count).End(xlUp).Row
   For y = 4 To 7
   jSon = Range(“J” & Rows.Count).End(xlUp).Row + 1
   If Cells(x, y) Empty Then
   Cells(jSon, “J”) = Cells(x, “C”)
   Cells(jSon, “K”) = Cells(3, y)
   Cells(jSon, “L”) = Cells(x, y)
   End If
   Next y
   Next x
   End Sub

   Yanıtla

5. Merhaba,

   Şehirleri sıralamak için aşağıdaki dizi formülü J4 hücresine,

   =İNDİS($C$4:$C$10;KÜÇÜK(EĞER($D$4:$G$10>0;SATIR($C$4:$C$10)-3;””);SATIR(A1)))

   Yılları sıralamak için aşağıdaki dizi formülü K4 hücresine,

   =İNDİS($D$3:$G$3;KÜÇÜK(EĞER(KAYDIR($C$4;KAÇINCI($N4;$C$4:$C$10;0)-1;1;;SÜTUNSAY($D$3:$G$3))>0;SÜTUN($D$3:$G$3)-SÜTUN($C$3));EĞERSAY($N$4:N4;N4)))

   Değerleri sıralamak için aşağıdaki formülü L4 hücresine,

   =TOPLA.ÇARPIM(($C$4:$C$10=$N4)*($D$3:$G$3=$O4)*($D$4:$G$10))

   Yanıtla

6. =EĞERHATA(İNDİS($C$1:$C$10;KÜÇÜK(EĞER($D$4:$G$10″”;SATIR($D$4:$G$10));SATIRSAY($J$4:J4)));””)

   =EĞERHATA(İNDİS(KAYDIR($C$1;2;1;1;4);0;KÜÇÜK(EĞER(KAYDIR($C$1;KAÇINCI(J4;$C$1:C4;0)-1;1;1;4)””;SÜTUN(KAYDIR($C$1;KAÇINCI(J4;$C$1:C4;0)-1;1;1;4))-3);EĞERSAY($J$4:J4;J4)));””)

   =EĞERHATA(İNDİS(KAYDIR($C$1;KAÇINCI(J4;$C$1:C4;0)-1;1;1;4);0;KÜÇÜK(EĞER(KAYDIR($C$1;KAÇINCI(J4;$C$1:C4;0)-1;1;1;4)””;SÜTUN(KAYDIR($C$1;KAÇINCI(J4;$C$1:C4;0)-1;1;1;4))-3);EĞERSAY($J$4:J4;J4)));””)

   sırasıyla şehir,yıl,değer için yazılıp alta çekilir hepsi crtl+shift+enter ile yazılır

   Yanıtla

7. Sub soru_13()

   Dim r As Long
   Dim i As Long
   Dim sonsatir As Long
   Dim a As Long

   sonsatir = Range(“C” & Rows.Count).End(xlUp).Row

   a = 4

   For i = 4 To sonsatir

   For r = 4 To 7

   If Cells(i, r) “” Then

   Range(“O” & a) = Cells(i, r).Offset(3 – i, 0).Value
   Range(“P” & a) = Cells(i, r)
   Range(“N” & a) = Cells(i, r).Offset(0, 3 – r).Value

   a = a + 1

   End If

   Next r
   Next i

   End Sub

   Yanıtla

8. Hocam merhaba,

   Verileri power query ye aldıktan sonra şehir sütununu seçiyoruz ve Unpivot Coumns > Unpivot Other Colums a tıklayarak bu tabloyu elde edebiliriz.

   Yanıtla

9. Sub deneme()
   m = 0
   For sat = 4 To 10
   For sut = 4 To 7
   If Cells(sat, sut) “” Then
   Cells(4 + m, 10) = Cells(sat, 3)
   Cells(4 + m, 11) = Cells(3, sut)
   Cells(4 + m, 12) = Cells(sat, sut)
   m = m + 1
   End If
   Next sut
   Next sat
   End Sub

   Yanıtla

10. A18:C18 Arasında başlıkları yazdım

    Makro aşağıdaki gibidir.
    Sub gtr()
    y = 19
    For i = 4 To 10
    For x = 4 To 7

    If Cells(i, x) > 0 Then
    Cells(y, 1) = Cells(i, 3)
    Cells(y, 2) = Cells(3, x)
    Cells(y, 3) = Cells(i, x)
    y = y + 1
    End If
    Next x
    Next i

    End Sub

    Yanıtla

11. merhabalar
    soru 13 için çözümüm

    Sub bulma()
    For i = 2 To 8
    For x = 2 To 5
    If Sayfa1.Cells(i, x) “” Then
    t = Sayfa1.Cells(Rows.Count, “h”).End(xlUp).Row
    Sayfa1.Cells(t + 1, 8).Value = Sayfa1.Cells(i, 1).Value
    Sayfa1.Cells(t + 1, 9).Value = Sayfa1.Cells(1, x).Value
    Sayfa1.Cells(t + 1, 10).Value = Sayfa1.Cells(i, x).Value
    End If
    Next x
    Next i
    End Sub

    Yanıtla

12. If Sayfa1.Cells(i, x) “” Then olacak
    kopyalarken yazılmamış

    Yanıtla

13. If Sayfa1.Cells(i, x) küçük ve büyük sembolu yanyana“” Then olacak
    kopyalarken burası siliyor küçük ve büyük sembolünü yazılmamış gözüküyor

    Yanıtla

14. =İNDİS($C$3:K10;KAÇINCI(R4;$C$3:$C$10;0);KAÇINCI(S4;$C$3:$G$3;0);1)

    Yanıtla

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.