اصلاح کد

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • reza_gh_tak

    • 2019/06/21
    • 149
    • 24.00
    #1

    [حل شده] اصلاح کد

    با سلام همینطور که می بینید من دو تا کد داره یکی سرچ می کنه و بعد پس از اصلاح اطلاعات رو ذخیره می کنه سوال من اینه چطور می تونم کاری بکنم که 1- اگر سلولهای N4,P4,U4 هر سه باهم در لیست نبود پیغام بده که موجود نیست 2- اگر هر کدام از خانه های سلول من خالی بود پیغام خالی بودن بده ممنون می شم راهنماییم کنید

    Sub searcheditac_Click()




    If Sheets("edit ac").Range("n4").Value = "" Or _
    Sheets("edit ac").Range("p4") = "" Or _
    Sheets("edit ac").Range("U4") = "" Then
    MsgBox "áØÝÇð ÔãÇÑå ËÈÊ ÑÇ ÕÍíÍ æÇÑÏ äãÇÆíÏ"
    End If


    z2 = Sheets("gozaresh jame ac").Cells(Sheets("gozaresh jame ac").Rows.Count, "B").End(xlUp).Row


    For i = 3 To z2


    If Range("N4") & " " & Range("p4") & " " & Range("u4") = Sheets("gozaresh jame ac").Range("B" & i) Then


    'Range("AD4") = Sheets("gozaresh jame ac").Range("z" & i)eets("gozaresh jame ac").Range("L" & i)






    'Range("AD4") = Sheets("gozaresh jame ac").Range("ac" & i)
    'Range("P6") = Sheets("gozaresh jame ac").Range("C" & i)
    Range("x8") = Sheets("gozaresh jame ac").Range("e" & i)
    Range("M8") = Sheets("gozaresh jame ac").Range("F" & i)
    Range("C8") = Sheets("gozaresh jame ac").Range("G" & i)
    Range("X10") = Sheets("gozaresh jame ac").Range("H" & i)
    Range("M10") = Sheets("gozaresh jame ac").Range("I" & i)
    Range("C10") = Sheets("gozaresh jame ac").Range("D" & i)
    Range("X12") = Sheets("gozaresh jame ac").Range("J" & i)
    Range("M12") = Sheets("gozaresh jame ac").Range("K" & i)
    Range("C12") = Sheets("gozaresh jame ac").Range("L" & i)
    Range("X14") = Sheets("gozaresh jame ac").Range("M" & i)
    Range("M14") = Sheets("gozaresh jame ac").Range("N" & i)
    Range("c14") = Sheets("gozaresh jame ac").Range("O" & i)
    Range("X16") = Sheets("gozaresh jame ac").Range("P" & i)
    Range("P16") = Sheets("gozaresh jame ac").Range("Q" & i)
    Range("M16") = Sheets("gozaresh jame ac").Range("R" & i)
    Range("C16") = Sheets("gozaresh jame ac").Range("S" & i)
    Range("X18") = Sheets("gozaresh jame ac").Range("T" & i)
    Range("M18") = Sheets("gozaresh jame ac").Range("U" & i)
    Range("C18") = Sheets("gozaresh jame ac").Range("V" & i)
    Range("U21") = Sheets("gozaresh jame ac").Range("AA" & i)
    Range("c21") = Sheets("gozaresh jame ac").Range("AB" & i)
    Range("AB24") = Sheets("gozaresh jame ac").Range("W" & i)
    'Range("w24") = Sheets("gozaresh jame ac").Range("X" & i)
    Range("K24") = Sheets("gozaresh jame ac").Range("Y" & i)
    'Range("D24") = Sheets("gozaresh jame ac").Range("Z" & i)


    Exit For


    End If


    Next






    End Sub




    Sub updateditac_Click()


    z2 = Sheets("gozaresh jame ac").Cells(Sheets("gozaresh jame ac").Rows.Count, "B").End(xlUp).Row




    For i = 3 To z2


    If Range("N4") & " " & Range("p4") & " " & Range("u4") = Sheets("gozaresh jame ac").Range("B" & i) Then








    'heets("gozaresh jame ac").Range("ac" & i) = Range("AD4")
    'Sheets("gozaresh jame ac").Range("C" & i) = Range("P6")
    Sheets("gozaresh jame ac").Range("e" & i) = Range("x8")
    Sheets("gozaresh jame ac").Range("F" & i) = Range("M8")
    Sheets("gozaresh jame ac").Range("G" & i) = Range("C8")
    Sheets("gozaresh jame ac").Range("H" & i) = Range("X10")
    Sheets("gozaresh jame ac").Range("I" & i) = Range("M10")
    Sheets("gozaresh jame ac").Range("D" & i) = Range("C10")
    Sheets("gozaresh jame ac").Range("J" & i) = Range("X12")
    Sheets("gozaresh jame ac").Range("K" & i) = Range("M12")
    Sheets("gozaresh jame ac").Range("L" & i) = Range("C12")
    Sheets("gozaresh jame ac").Range("M" & i) = Range("X14")
    Sheets("gozaresh jame ac").Range("N" & i) = Range("M14")
    Sheets("gozaresh jame ac").Range("O" & i) = Range("c14")
    Sheets("gozaresh jame ac").Range("P" & i) = Range("X16")
    Sheets("gozaresh jame ac").Range("Q" & i) = Range("P16")
    Sheets("gozaresh jame ac").Range("R" & i) = Range("M16")
    Sheets("gozaresh jame ac").Range("S" & i) = Range("C16")
    Sheets("gozaresh jame ac").Range("T" & i) = Range("X18")
    Sheets("gozaresh jame ac").Range("U" & i) = Range("M18")
    Sheets("gozaresh jame ac").Range("V" & i) = Range("C18")
    Sheets("gozaresh jame ac").Range("AA" & i) = Range("U21")
    Sheets("gozaresh jame ac").Range("AB" & i) = Range("c21")
    Sheets("gozaresh jame ac").Range("W" & i) = Range("AB24")
    Sheets("gozaresh jame ac").Range("X" & i) = Range("w24")
    Sheets("gozaresh jame ac").Range("Y" & i) = Range("K24")
    Sheets("gozaresh jame ac").Range("Z" & i) = Range("D24")
    Sheets("gozaresh jame ac").Range("AG" & i).Value = Sheets("time1").Range("AD3")
    Sheets("gozaresh jame ac").Range("AH" & i).Value = Sheets("time1").Range("AE3")
    Sheets("gozaresh jame ac").Range("AI" & i).Value = Sheets("time1").Range("AF3")




    Sheets("edit ac").Range("u4") = "'"
    Sheets("edit ac").Range("P4") = ""
    Sheets("edit ac").Range("N4") = ""
    Sheets("edit ac").Range("x8") = ""
    Sheets("edit ac").Range("M8") = ""
    Sheets("edit ac").Range("C8") = ""
    Sheets("edit ac").Range("X10") = ""
    Sheets("edit ac").Range("M10") = ""
    Sheets("edit ac").Range("C10") = ""
    Sheets("edit ac").Range("X12") = ""
    Sheets("edit ac").Range("M12") = ""
    Sheets("edit ac").Range("C12") = ""


    Sheets("edit ac").Range("X14") = ""
    Sheets("edit ac").Range("x14") = ""
    Sheets("edit ac").Range("M14") = ""
    Sheets("edit ac").Range("c14") = ""
    Sheets("edit ac").Range("x16") = ""
    Sheets("edit ac").Range("P16") = ""
    Sheets("edit ac").Range("M16") = ""
    Sheets("edit ac").Range("C16") = ""
    Sheets("edit ac").Range("x18") = ""
    Sheets("edit ac").Range("m18") = ""
    Sheets("edit ac").Range("c18") = ""
    Sheets("edit ac").Range("U21") = ""
    Sheets("edit ac").Range("AB24") = ""
    'Sheets("edit ac").Range("w23") = ""
    Sheets("edit ac").Range("k24") = ""
    'Sheets("edit ac").Range("d24") = ""
    Sheets("edit ac").Range("c21") = ""




    MsgBox "æíÑÇíÔ ÇäÌÇã ÔÏ "




    Exit For


    End If




    Next


    End Sub
    برچسب ها: هیچ‌کدام
    • iranweld

      • 2015/03/29
      • 3341
      #2
      با سلام

      برای مورد خالی بودن و پیغام دادن

      Sub searcheditac_Click()


      If Sheets("edit ac").Range("n4").Value = "" Or _
      Sheets("edit ac").Range("p4") = "" Or _
      Sheets("edit ac").Range("U4") = "" Then
      MsgBox "áØÝÇð ÔãÇÑå ËÈÊ ÑÇ ÕÍíÍ æÇÑÏ äãÇÆíÏ"


      Else


      z2 = Sheets("gozaresh jame ac").Cells(Sheets("gozaresh jame ac").Rows.Count, "B").End(xlUp).Row


      For i = 3 To z2



      If Range("N4") & " " & Range("p4") & " " & Range("u4") = Sheets("gozaresh jame ac").Range("B" & i) Then


      Range("x8") = Sheets("gozaresh jame ac").Range("e" & i)
      Range("M8") = Sheets("gozaresh jame ac").Range("F" & i)
      .......................................

      ..................................


      Exit For
      End If

      Next


      End If

      End Sub

        کامنت

        • reza_gh_tak

          • 2019/06/21
          • 149
          • 24.00
          #3
          ممنون

            کامنت

            قبلی template بعدی
            چند لحظه..